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Introduction 


This book was born of the conviction that it was high time a listings 
collection offered real value for money. You have in your hands as 
complete a software library as can be crammed into close on four 
hundred pages. We have pulled out all the stops to offer you as 
varied, innovative and exciting a selection of programs as possible. 
There are arcade action games for those of you whose fingers 
naturally twitch around the cursor control keys, tactical games for 
the more cerebrally inclined, genuinely novel games as well as 
classics of the genre, quizzes, tests of your mental agility, party 
games and a leavening of utility and educational programs. In 
short, for the price of a single cassette we’ve put together a 
collection of sixty fully-developed programs which have been 
exhaustively tested before being dumped straight to the printer. 
This ensures the accuracy of the listings, so all you have to do is to 
get your eager fingers flashing across the keyboard and faithfully 
reproduce the programs on your screen. 

We thought we should include a brief programmers note regarding 
the listings in this book. The programs are listed to 40 columns 
width, the same number of columns as the Commodore screen 
display, but the line number is indented and does not align with the 
first column, as a listing does on the Commodore screen. This helps 
differentiate line numbers. Every effort has been made to clarify the 
graphics characters but, occasionally, when blocks of graphics are 
used individual characters may be hard, to discern. The following 
examples of these characters will enable you to identify the most 
difficult of them. El © gl 

Finally, we would like to extend our thanks to the team of 
converters and checkers without whom this project would not have 
been possible. Their selfless devotion to accuracy inspired us to 
slave over hot keyboards into the midnight hour. 

So now it’s up to you. A quick glance through the contents pages 
reveals that the Earth is being threatened by anything from an alien 
invasion fleet to a vampire cat! As usual, you are our only hope, so 
get to the keyboard and go get’em! 
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Soccer Supremo 


You’ve been headhunted, and accepted the position of manager of a 
first division club. It’s down to you to ensure that the team is run like the 
business football is these days. Whether or not you manage to survive to 
start the following season is determined by the way in which you handle 
the team’s finances, who you buy and sell, and, of course, the position 
your team holds at the end of the season coupled with the kind of gate- 
average you have managed to achieve throughout the year. This is not a 
game for the softhearted. If your stars are not paying their way, it’s up to 
you to make the tough decision to swop them up on the open market. 
Whether or not you’ve made the correct decision is reflected in the 
results of the individual games which are simulated throughout the 
season. The points system, as listed, awards 3 points for a win. 


10 REM ****************************** 


1 1 REM * * 

12 REM * SOCCER SUPREMO * 

13 REM * * 

14 REM * CONVERTED ONTO CBM-64 * 

15 REM * BY DAVE PONTING * 

16 REM * 29-8-83 * 

17 REM * * 


18 REM ****************************** 

20 GOSLIB 10000 

30 6=0! I = 0 : L =0 : O =0 : P =0 s Ul=0 

70 at$= » = rem 

<CURSOR HOME)- + 25*<CURSOR DOWN> 

80 REM E*=" —.. .—— 


90 

II 

100 E*="[1S 

GSll 11 

120 K = 100000 
160 GOTO4200 

200 REM ***** GAME COMMENTARY ***** 

20 1 PR I NT " kJH"E$s PR I NT" H" :FORK=1 TO 16:PR IN 
TTABC19)"|":NEXTX:PRINT" ^"E$ 
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220 PRINT"PLEASE SELECT PLAYING FORMAT:- 

ii 

222 PRINT"1) 4-3-3(FLEXIBLE) 2) 4-2-4 < 

ATTACK ) 

224 PR INT"3) 4-4-2(DEFENSIVE ) 4> 2-3-5 < 
CLASSICAL) 

270 X$="":GETX$:IFX$=""THEN270 
275 D=ASC<X*)-43: IFD < 0ORD >3THEN270 
300 PRINTLEFT$<AT$,21)S$S$S$ 

305 PRINTLEFT$<AT$,21)"SELECT 1) LEFT WI 
NG "; 

306 PR INT"2) RIGHT WING OR 3) 

CENTRE FIELD ATTACK" 

307 Y$="":GETY$:IFY$=""THEN307 

310 IFASC <Y$> <4S0RASC< Y$)>51THEN307 

315 E=2*«TASC<Y*)-48)-2 

330 PRINTLEFT$<AT$ r 21)S$S$S$ 

332 PR INTLEFT$ < AT$,21)" CALL <H)HEADS 

OR (T)TAILS " 

335 X$="":GETX$: IFX$< >"H"ANDX*< >"T"THEN3 
35 

350 REM 

335 A=J: IFINT(RND <1)* 10)<6THENA=Q 
410 F=10-20*SGN(ABS( A-R)) 

420 D = D*2 

430 IFD< >2THEND=4 

450 PRINTMID*(M$(A),9)" TO KICK OFF" 

470 Y$="01"+CHR$<48+ INT<RND <1)*2)) + "000" 
+CHR$(43+A)+CHR$(48+E ) 

47 1 IFGOWTHEN Y$= "00 " +CHR$<48+ INT(RND ( 1 
)*2))+"000"+CHR$(48+A)+CHR$(48+E) 

476 GOTO840 
480 E=9 

500 PRINTTABC10+F)"SKICK OFF" 

510 B =Q +J-A 

520 X=5*(ASC(MID$(V$,(A-l)*12+E))-64) 

540 Y$=CHR$(ASC(Y$)+1)+MID$(Y$,2) 

541 Y$=LEFT$(Y*,5)+CHR*(ASC(MID$(Y$,6))+ 
1)+MID$(Y*,7) 

542 KY$="":GETKY$: IFKY$< >""THEN5400 

543 IFASC(MID$(Y$,6))=780RASC(MID£(Y$,6) 
)>107THEN920 

545 N=INT (RND (1)*8) + 1 
547 FORC=1T0100:NEXTC 
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550 C=N+E+D 

560 IFE=1QRASC(Y$)< 50THEN570 

565 IFC<EORCC>16ANDASC <MID$<Y$,3 >)=49)TH 

EN650 

570 IFC<1THENC=1 

575 IFE>3ANDASCCY*)>51ANDRND <1)>.75THEN7 
30 

580 IFN>6THENC=N+ASCCMI0*CY$,8> )-49 
58 1 IFC >11THENC = 1l-INTCRNDC1 ) *4 ) 

588 IFC=EANDASC <Y$)<50THEN545 
533 IFC =ETHEN630 

585 PRINTTAB(10+F)"»3"E "PASSES TO "C 
590 IFASC()<50OR(<X>50ORRND<1)<.7 ) ANDR 
ND < 1 > <.9)THEN61© 

595 E =13-INT << C + E )/2) 

536 IFE<5THENE=E + INT(RND <1 ) *3 ) 

600 PR INTTAB<10-F)"^INTERCEPTED BY "E 
603 Y*="1"+MID$<Y$,£> 

605 GOTO710 
610 E =C 
880 GOTO530 
650 IFE=1THEN6S0 

655 PR INTTAB<10+F)"3"E"TACKLED BY "13-E 
657 FOR Y=1TO50:NEXTY 

680 Y=5*CASC<MID$<V$,< < B - 1 ) * 1 £ + ( 1E-E > > ) > 
-64) 

670 IFYM£.5 + CASC<MID*<Y:£,2) >-49)*SGNCF > 
) *XORRNDC 1 ) > .65THEN700 

680 PR INTTAB(10+F)" OH" E"RETAI NS BALL " 

690 GOTO540 
700 E =13-E 

705 PR INTTAB <10-F)"S"E"GAINS THE BALL" 
710 F = -F 

712 FORY=1TO90:NEXTY 
715 A =B 
720 GOTO510 

730 PRINTTABC 10+F) "ITE"** SHOOTS **" 

740 FORY=1TO£50:NEXTY 

745 IFRND <1)>.950RRND <1) *5+ SGN<F)*<ASC<M 
ID$<Y$,2) )-49) >3.5THEN300 

750 Y=5*CASCCMID$<V$,<<B-1)*12+1)))-64) 

760 IFY*RND(1)>8THEN800 

765 IFRND(1)>.6THEN780 

770 PRINTTABC 10-F) "HI ** SAVED **" 
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772 FORE=1TO20 :NEXTE 

773 Y*="0 ,, +MID*(Y*„2> 

775 E =1 

777 GOTO710 

780 PR INTTAB <10 +F)" ** CORNER **" 

782 FORX=1T07 s NEXTX 
785 FORE=1TO250:NEXTE 
790 E=5+INT(RND C1> *7) 

785 PR INTTAB <10 +F)" TAKEN BY "E 

797 Y$="0"+MID$<Y$,2> 

798 GOTO540 

800 PR I NTTAB < 10+F ) "-I" E " Ji SCORES GOAL " 
810 PRINT: PRINTED 
815 FORE =1TO 10:NEXTE 
320 E=4+SGN(ABS(A-H)) 

830 Y$=LEFT$<Y$,E-1)+CHR*<ASC<MID$<Y$,E) 
>+l>+MID$<Y*,E+l> 

835 F=-F 

836 A =B 

837 Y$="0"+MID$(Y$,2) 

840 PRINT”® SCORE" 

860 PRINT:PRINTMID$<M$<H>,9)" "ASC<MID$< 
Y*,4>)-48; 

870 PR INTTAB <19 >MID$<M$(R> ,9 ) " "ASC<MID* 
(Y*,5> >-48 
880 PRINTED 
910 GOTO4S0 

920 X$="H A L F TIME" 

925 IFASC<MID$<Y*,6>>>107THENX$=" F U L 
L TIME" 

930 PR INTE$: PR I NTTAB < 12 ) "I2"X$ 

935 FORY=1TO1000 s NEXTY 

940 PRINTED 

955 Y$="0"+MID$(Y$ / 2> 

960 IFASC<MID$<Y$,6> > >107THEN970 

966 Y=J+Q+48-ASC<MID$(Y$,7)) 

967 IFA <>YTHENF = -F 
96S A =Y 

969 GOTO840 

970 PR INT"F INAL SCORE" 

972 PRINTMID$<M$<H>,9)" "ASC<MID$<Y$,4>> 

-43; 

973 PR INTTAB(19)MID$(M$(R > ,9 ) " " 

<Y$,5)>-48 


ASC<MID$ 
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975 FORX =1TO200 : NEXT 
930 G0T05535 

1000 REM ***** MAIN MENU (D I ARY ) ****** 
1003 PRINT"^" ; 

1003 F0RX=1T04 

1007 H=VAL(MID*(F$,<W-1)*8+ 3*X-1,1)) 

10 10 R =VAL<MID*(F$,CW-1)*3+£*X,1)) 

1013 IFH=QORR=QTHEN1016 

1014 NEXTX 
1016 J=H 

10 18 IFH=QTHENJ =R 
1030 T=0 

1033 U=0 

1034 FORX=1T0IS 

1036 T=T+50000*(ASC(RIGHT$(V$,(Q-l)*13+X 
> >-64) 

1038 U=U+50000*(ASC<RIGHT$<V:£, (J-l )*13+X 
) )-64 ) 

1030 NEXTX 

1033 IFS >6THENS = 6 

1035 IFO=0ORP>.9THEN1050 

IN BY THE BANK" 

1043 K = K-<INT < O * . 0 6 ) ) 

1046 0 = 0 s FORTT =1TO3000:NEXTTT 

1047 PRINT"LH"; 

1050 IF < K < O *-1 OR <ASC(LEFT$(M$<Q),1))=8 
ANDL-J>4 > > AND LOW THEN6500 
1083 X£ ="AWAY" 

1085 IFH=QTHENX$="HOME" 

1087 POKE533S0 .r6 : P0KE5338 1 ,6 

1O90 PR INTTAB ( 8 ) "aCLUB: "MID$(M$(Q),9) 

1093 PR I NTTAB ( 8 ) " 351B3UPREMOS DESK DIARY": 
PRINTS DAY "STAB (30) "WEEK "W: PRINTED 

1094 PR I NT "Hg| 1. CLUB ACCOUNTS PR I NT" m 
3. LEAGUE TABLE" 

1095 PR I NT "gj 3. WEEKLY LEAGUE FIXTURES" 

1096 PR INT"M 4. WEEK "W"BUS INESS MATTERS 
" : PR I NT " gj 5. ANALYSE WEEK "W 

1098 PR I NT " g| OPPONENTS:-"MID$(M$(J> ,8 
)" <"X$")" 

1099 PR INT"H PLUS: - PLAYER TRANSFER M 
ARKET" 

1100 PR I NT" HI a*** PRESS CHOSEN KEYCOD 

E ***■" 
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1105 IFS>=6THENPRINTTAB<10)"M*** MATCH D 

AY ***" :PRINTTAB<12> "STRESS ANY KEY"; 

1110 X$="":GETX*:IFX$=""THEN1110 

11£0 IFS>=6THENPOKE53£30,4:POKE53£S1,5:P 

R I NT " 'iM " ; :GGT0£00 

1 130 IFX*< " 1 "0RX$> ,, 5"THEN1 1 10 

1135 P0KE53231,2:PR INT"J"; 

1140 ONVALCX*^GOTO 1200,1400,1600,1800,£0 
00 

1£00 REM******* CLUB ACCOUNTS ******* 

1£ 10 PRINT" J" SPRINT" CLUB ACCOUNTS: 

WEEK "W:PRINTE*;S$;S*:PRINT" BANK BALAN 
CE ";TAB<£0)"£"K 

1££0 PRINT" PERMITTED OVERDRAFT £"0:PRIN 
TSPRINTERS PR INT" TEAM VALUE: £"T 

1£30 PR INT"KM PRESS SpM TO DISCUSS OVERD 
RAFT OR 

1 £35 PR I NT "SI RETURNS TO RETURN TO DIAR 
Y" 

1 £40 X$=" " : GETX$: IFX3K > " " THEN 1 £40 
1£50 GETX*:IFX*=""THEN1250 
1260 IFX*< >"0"ANDX^< >"0"THEN1000 
1270 PR INT" SMEJ ENTER 1 TO 4 < £ 00,000. 

00 ) 

1280 INPUTX*:IFASC<X$><43 OR ASC<X$>>5£T 
HEN1230 

1 £30 X=100000*VAL<X$> 

1300 IFRNDC1><.350RX +0 >400000THENGOTO135 
0 

1310 0=0+X 

1320 P =INT(RND <1> *3)+2 

1330 PRiNT ,, m ,, s$;s^; " rra £";x" extended 

FOR "P"WEEKS" 

1340 GOTO 1360 

1350 PR INT****** REFUSED ******" 
1360 S=S+1 

1370 FORX=1TO3000:NEXTX 
1330 GOTO 1000 

1400 REM ***** LEAGUE TABLE ***** 

1410 PRINTTAB<5)"SUPER LEAGUE - WEEK "W- 
1:PRINTED 

1420 PRINTTAB(£9)"GOALS":PRINTTAB(19)"W 
D L FR AG PT" 

1430 FORX=1T08 
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1440 FQRY=1T03 

1450 IFASC(M$(Y)X >XTHEN1560 
1460 A=ASC(MID*(M*(Y),3))-65 
1470 B=ASC(MID$(M$<Y),4))-65 
1430 C=A3C(MID$(M$(Y),5)>-65 
1485 D=ASC(MID$(M$<Y),3))-65 
1430 E=ASC<MID*(M$(Y>,7>>-65 
1435 F=ASC(MID*(M$(Y>,8))-65 
1500 PRINTMID*(M$(Y>,3); 

1510 PRINTTAB<£0-LEN<STR$(A)) >A;TAB(£3-L 
EN(STR$(B> ) >B; 

1520 PRINTTAB (26-LEN(STR$(C)))C;TAB(30-L 
EN(STR$(D)))D; 

1530 PRINTTAB(33-LEN<STR$CE)>)E;TAB(36-L 
EN(STR$(F)>)F 
1560 NEXTY,X 

1585 PRINT 11 Mgmmm PRESS RETURN* TO RETU 
RN TO DIARY"; 

1530 INPUTX* 

1535 I FW= 15THEN6500 
1537 GOTO 1000 

1600 REM ****** LEAGUE FIXTURES ****** 

1610 Y=1aI 

1630 PR I NT " LI" ; 

1640 PRINT" LEAGUE FIXTURES FOR WEEK " 
YSPRINTSPRINT 
1650 FORX =1T04 

1655 F1=8*(Y-1)+X*2-1:H=VAL <MID$(F$,F1,1 

> > 

1653 F2=S*(Y-1)+X*£:R=VAL(MID$(F$,F2,1> > 
1653 PRINT"grMID$<M$<H>,3)TAB(15>" V "TA 
B<20)MID$(M*<R),3) 

1675 NEXTX 

1680 PR I NT" glSMglENTER ANOTHER WEEK NUMBER 
(1 TO 14) OR" 

1682 PR I NT "SI PRESS RETURNS TO RETURN TO 
DIARY" 

1685 X$="":INPUTX*:IFX$=""THEN1000 
1630 Y=INT(VAL<X*)> 

1632 IFY<1ORY >14THEN1685 
1635 GOTO 1630 

1300 REM ****** ACTION FILE ****** 

1805 PRINT" ACTION FILE - WEEK "WSPRINT 
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1807 PRINT" 1. SPONSOR / ADVERTISER" 

ISOS PR I NT "HI £. TRAVEL / TICKET SALES / 
SUPPORTERS" 

1809 PR INT"H 3. TRAINING / PRESS RELATIO 
NS”:PRINT"H 4. GROUND IMPROVEMENT" 

13 15 PR INT"H 5. ESCAPE FOR GOLF AND LEAV 
E IT ALL TO" 

1817 PRINT" BEN AND JO, YOUR ASSIST 

ANT AND SECRETARY" 

18£0 PRINTED 

1830 PRINT" *** SELECT ACTIVITY ** 

*H" 

1840 GETX$:IFX$<>""THEN1840 
1S45 GETX$:IFX$=""THEN1S45 
1350 IFX$<"1"ORX$>"5"THEN1340 
1855 X=ASC<X$>-48 
1857 N=INT(RND < 1 > #4) + 1 

1860 ONXGOTO1865,1880,1830,1900,1910:GOT 
0 1340 

1865 IFFL =1ANDN=1THEN1857 

1866 X<1>=1000001>="YOU MADE IT..1 Y 
EAR SPONSORSHIP DEAL":FL=1 

1867 X ( £ ) = 10000:X$(£ ) = " S INGLE GAME SPONS 
ORSHIP" 

1868 X(3)=40000:X$(3)="PITCH ADVERTISEME 
NT RENTED FOR" 

1369 X(4)=-15000:X$<4)="ADVERTISER CANCE 
LLED CONTRACT" 

1875 GOTO 1887 

1880 X < 1 ) = 100000 :X$<1)="TRAVEL AGENT GIV 
ES YOU REBATE" 

138£ X<£) = 100000:X$< £ ) = "SUPPORTERS CLUB 
GIVES YOU DONATION" 

1384 X(3>=-40000:X$<3)="JO (SEC) LOSES 4 
00 SEASON TICKETS" 

1886 X<4)=-40000:X^<4) = "BEN <ASS.) FIXED 
A BAD FOREIGN TOUR DEAL" 

1337 PR INT"M"X$<N>:PRINTTAB<18)"£"X<N> : K 
=K +X < N ) 

1388 GOTO 19 10 

1390 G=W: PR INTTAB C.3) "TEAM MORALE IS HIGH 

II 

1895 PRINTTAB < 8 )"EJCGOOD PRESS COVERAGE)" 
:GOTO 1910 
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1900 1 = 1 + 1:K=K-100000 SPRINT" STAND CAPAC 
ITY UP BY 10,000 SEATS"SPRINT" COST £100 
, 000 " 

1910 FORX =1TO3000:NEXTX s S=S +2:GOTO 1000 
2000 REM ***** TEAM DETAILS NEXT GAME ** 
**** 

2010 PRINT"J"; 

2070 X= 14 *SGN(ABS <H-Q )) 

2080 PR INTTAB<5)"HOME TEAM "TAB<25>"AWAY 
TEAM"SPRINT 

2085 PRINTMID$<M$<H>,9>TAB<23>MID$<M$<R> 
,9)s PR INTTAB< X)"MANAGER:SUPREMO" 

2090 PR INTE$s PR INTTAB <5)"£ ,000"TAB<25J " 

£ , 000 " 

2096 F =0 s C =0 

2100 FORX=1TO 12 

2105 IFX<10THENPRINT" "; 

2110 Y=50* <ASC <MID$<V$,< <H-1)*12+X> ) >-64 
) 

2115 D=50*<ASC<MID*<V$,< <R-1>* 12+X> >)-64 

> 

2117 F =F+Y/1000 s C=C +D/1000 

2120 PRINTX")"TAB <11-LEN<STR$<Y)>)YTAB < 3 
1-LEN<STR*<D> >)D 
2 125 FORY =1T07 

2126 E=ASC<MID$<B$<Y>,2)>-64 

2 127 IFE <>XTHEN2150 

2130 D-ASC<MID$CB*<Y:> , 1 > >-64 

2 135 IFD <>HANDD <>RTHEN2150 

2140 PRINTLEFT*<AT$,E+7>SPC<15+17*SGN<AB 

S<H-D> >>MID$<BS<Y>,3> 

2150 NEXTY 
2200 NEXTX 

2300 PR INT"TOTAL "F" M. "TAB<16)"TOTAL "C 
"M."SPRINTED 

2310 PR INT"ENTER NUMBER OF PLAYER TO SWA 
P " 

2320 PRINT" OR RETURN® TO RETURN 

TO DIARY"; 

2340 X*=""sINPUTX*:IFX$=""THEN1000 
2350 IFS>=60RVAL<X*)<10RVAL<X*> >11THEN10 
00 

2357 X=VAL<X$> 

2360 N=INT <RND <1)*7) + 1 
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2370 IFN=QTHEN2360 
2372 A =<N-1)*12+X 

2374 B = <Q-1) *12+X 

2375 D=75*<ASC<MID$CV$ r A>>-64) 

2377 E = D-(D/15)* INT <RND < 1 )*5) 

2378 S=S+1 

2380 print" rrrr ssssss» mm no. "X" is off 
ERED AT £"D 

2381 Y$="":INPUT" YOUR OFFER < OR RETURN 

> Y$:IFY$=""THEN2000 

2395 IFVALCY*) > = ETHEN2420 

2405 PR INT"□ M3S0RRYB - YOUR OFFER I 

S TOO LOI/JB" 

2410 FORXX=1T01000 : NEXTXX 
2415 GOTO2380 

2420 PR INT "DM 3*** ACCEPTED - THANK 

YOU ***!^" 

2425 C=1000*<50*<ASC<MID$(V$,B>>-64)-VAL 

<Y$> > 

2430 K=K+C 

2460 X$=MID$<V$,A,1>:XX£=MID$<V$,B,1> 
2470 V$=LEFT$<V$,<A-1>)+XX$+MID$<V$,<A + 1 

> > 

2475 V$=LEFT$<V$,<B-1 >)+X$+MID$<<B+1 > 

) 

2480 FORY =1T07 

2485 IF<ASC<MID$<B$<Y>,1>)=Q+64 OR ASC<M 
ID$<B$<Y> , 1 > ) =N+64 )THEN2487 

2486 GOTO2490 

2487 IFASC<MID$<B$<Y>,2)>=X+64THENB$<Y)= 
CHR*<Q+N+128-<ASC<B$<Y>> > > +MID$<B*<Y>,2> 
2490 NEXTY 

2495 S =S + 2 s FORXX =1TO 1000 s NEXTXX 
2500 GOTO2000 

4200 REM ***** INITIALIZATION ***** 

4210 B$< 1 > = "BASHILTON" s B*<2 > = " AFLIHELAN " 
:B$ C 3 > = "DGKEEGAN ":B$ C4 > = "GEFRANCIS" 

4220 B$(5)= "CJREG IS " : B*<6 > = "EGL1ILK INS " 
:B$<7)=" HHHODDLE" 

4290 V$="DADADTBDCABATBDDCBABACDABCBBADC 
ACTBADABACBTADDBADDACBDTCSCBADAABBCBBDA" 
4295 V$=V$+"BADBAATABCADDABABCAABTBCBA": 
REM TYPE & F* EXACTLY 

4300 F*="1234567831427586142358675162738 
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41625334753647182 182736452143658713245" 
4350 F$=F$+"7683241768515263748526174831 
72835465463728 1 " 

4400 M$<1>=" AAAAAAA LIVERPOOL" 

4410 M$<2>=" AAAAAAA NOTTINGHAM" 

4420 M$<3)=" AAAAAAA WEST BROMWICH" 

4430 M$<4>=" AAAAAAA SOUTHAMPTON" 

4440 M$<5)=" AAAAAAA MANCHESTER U." 

4450 M$<6>=" AAAAAAA LEEDS" 

4460 M$<7>=" AAAAAAA MANCHESTER C." 

4470 M$<8>=" AAAAAAA TOTTENHAM" 

4480 FORX =1T08 

4490 IFW<£THENM$(X)=CHR$<X > +MID$<M$(X),2 
) 

4495 NEXTX s POKE53280,6 ’• P0KE5328 1 ,6 
4630 PR INT"J"; 

4700 PR INT "M SOCCER SUPRE 

M 0":PR INT 

4710 PRINT" I N I T I A L I Z A T I O 

N" SPRINTED 

4715 PRINTTAB<12)"BSUPER LEAGUE":PR INT 

4720 PR INTTAB <2)"©STAR PLAYERS"TAB<25>"S 

TEAMS"!PRINTED*PR INT 

4740 A =0 

4750 FORX = 1T07 

4760 PR INT"CHR$ <X +64)"> "MID$<B$<X),3 

) r 

4770 PR INTTAB <20)" H" CHR$(X+A+79>"> "MID$ 
<M*<X+A>,9) 

4775 IFX= 1THENPR I NTTAB <9 ) "0GQALKEEPERE1 Q 
) "MID$(M$<2),9) 

4780 IFX=1THENA=1 
4790 NEXT 

4300 PR I NT "Ml IF YOU WISH TO CHANGE A ST 
AR PLAYER OR TEAM PRESS APPROPRIATE"; 
4805 PRINT" LETTER AND ENTER NEW 

NAME" 

4807 PR I NT" jg PRESS RETURN* IF LIST I 

3 0 . K . " 

4310 REM#**********-- BEEP ***** 

4820 GETA$: IFA$< >""THEN4820 
4825 GETA$:IFA$=""THEN4825 
4827 IFA*=CHR$<13)THEN4900 
4840 IFA$<"A"QRA$>"W"THEN4820 
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4850 REM*****BEEP***** 

4852 A = 0 

4855 IF A$ >"G“THENA =1 

4860 PRINT'^NTER NEW NAME < "A$" >g"; : INP 
UTY$ 

4870 IFY$=""THEN4680 

4880 X=ASC<A$>sIFA=0THENB$<X-64)=LEFT#(B 
&<X-64>,2>+Y* 

4885 IFA=lTHENMigKX-73>=LEFT$<M$<X-73> ,8) 

+Y$ 

4890 GOTO4680 

4900 PRINTLEFT$<AT$,20 >S$;S$;3$;S$; 

4910 PRINTLEFT$<AT$,20> " SUPREMOPR INT 
n THESE CLUBS WANT YOU AS MANAGER 1 ' 
4915 PRINT 0 m PRESS LETTER OF YOUR CHOS 
EN CLUB 0“ 

4920 GETA$:IFA$<>""THEN4920 

4925 GETA$:IFA$="“THEN4925 

4930 IFA$<" P"ORA$ >"W"THEN4920 

4990 Q = ASC<A$)-79!S = 1:M=0:W=1:GOTO 1000 

5400 REM *** END OF GAME *** 

5415 YY$=LEFT*<Y*,3>+CHR*<ASC<MID$<Y$,4> 
> +1NT < RND <1>*3)> 

5420 YS=YY$+CHR$<ASC<MID$<Y$,5>) + INT<RND 
<1>*3>>+MID$<Y$,6> 

5530 REM *** END OF NORMAL GAME *** 

5535 P0KE5328 1 ,3 : PR INT'VJU" ; 

5537 X$="":D=0 

5540 A =INT < << RND <1>+0.3>*<T+U>/120>+2500 
*<13-ASC(M$<H >>-ASC<M$<R> >)> 

5542 IFA >50000+1 * 10000THEND=A-<50000+I * 1 
0000 > 

5545 IFD>0THENX*=" CAPICITY " 

5547 B =INT< < 1 . 1 + I+RND <1>>*<A-D>*<1+SGN<A 
BSCR-Q>>>/2> 

5548 C=9700+INT(<9-ASC<M*<Q> > >*2800> 

5550 PRINT" CLUB: "MID$<M$<Q),9>:PRINT" 
m MATCH ATTENDANCE: "<A-D)X$ 

5555 PRINT" < ESTIMATED LOCK-OUT ="D" )" 

5557 PRINT"H GATE SHARE"TAB<30>"£"TAB<3 
8-LEN<STR$<B> >)B 

5560 PRINT" RUNNING COSTS WEEK "W;TAB<3 
0>"£"TAB<38-LEN<STR$<C>) )C: PRINTED 
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5565 PR I NT" g®_E AGUE RESULTS WEEK "W 

5566 K=K+B-C 

5580 X$="0123450123440123340122340112340 
112230011230011222 " 

5600 FORK =1T04 

5610 H=VAL<MID$<F$,<8*<W-1> + <X*2 >-1>,1> > 
5620 R=VAL<MID$(F*,C8*<W-1> + <X*£>> ,1)> 
5630 PRINTMID$<M$<H>,3);TAB<20>MID$<M*<R 

> r 9> 

5646 IFH<>QANDR< >QTHEN5720 
5680 A=ASC<MID$<Y*,4))-48 
5680 B=ASC<MID*<Y$,5)>-48 
5700 GOTO5750 
5720 REM 

5730 A=ASC<MID$<X$,< <ASC<M*<H>>-l>*6+INT 
<RND <1>*6>+l> >>-48 

5740 B=ASC<MID$<X$,< <ASC(M$<R>>-l)*5+1NT 
<RND <1>*6> + l> > >-48 

5750 MM$=LEFT$<M$<H>,5>+CHR$<ASC<MID$<M$ 
<H > ,6 > > +A > 

5760 M$<H)=MM$+CHR$<ASC<MID$<M4KH>,7)>+B 
>+MID*<M*(H>,8) 

5770 MM*=LEFT$<MS<R>,5>+CHR$<ASC<MID$<M* 
<R> ,6> >+B> 

5780 M*<R>=W*+CHR*<ASC<MID$<M*<R> ,7> >+A 
>+MID*<M$<R>,8) 

6120 IFAOB THENGOTO6140 

6122 MM$»LEFT*<M*<H>,3>+CHR$<ASC 

<H>,4>>+1> +MID$<M$(H),5,3) 

6 125 m*<h>=mm$+chr*<asc<mid*<m*<h> ,8> > + l 
>+MID*<M*<H> ,9> 

6127 MM*=LEFT*<M$<R>,3>+CHR$<ASC<MID$<M$ 
<R>,4>>+1>+MI D$ < M$ < R >,5,3> 

6130 M$<R)=MM$+CHR$<ASC(MID*<M*<R>,8)>+l 

> +MID$(M$<R >,9) 

6135 GOTO6200 
6140 IFA <BTHEN6170 

6150 MM$=LEFT$<M$<H>,2>+CHR$<ASC<MID$<M$ 
<H>,3)>+l)+MID$KM$<;H>,4,4> 

6155 M$<H>=MM$+CHR*<ASC<MID*<M$<H>,8)>+3 
>+MID$<M$<H>,9 > 

6160 M$<R)=LEFT$(M$<R >,4>+CHR$<ASC<MID$< 
M$<R>,5)> + l>+MID$<M$<R>,6) 

6165 GOTO6200 
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6170 MM$=LEFT$<M$<R>,2>+CHR$<ASC<MID$<M$ 
<R>,3)> + l)+MID$<M*<R),4,4) 

6 180 M$<R)=MM$+CHR$<ASC<MID*<M$<R> ,8) )+3 
>+MID$<M*<R>,9) 

6190 M$<H>=LEFT$<M$<H>,4>+CHR*<ASC<MID$< 
M*<H>,5)> + l)+MID$<M*<H>,6) 

6800 PR INT"□"TAB C15)A;TAB<35>B 
6280 NEXTX 

6290 PR I NT" ^RESS RETURN* TO CONTINUE" 
6300 X*="":INPUTX* 

6310 PR INT"H SPLEASE WAIT A FEW MOMENT 

S" 

6380 C =200 
6325 X$=" 

6330 FORX =1T08 
6340 A=-100 
6350 FORY=1T08 

6360 D=ASC<MID$<M$<Y>,8)>+ASC<MID*<M$<Y> 
,7)>/20 

6370 IFD >CORMID$<X$,Y, 1)0" "ORD< =ATHEN6 
400 

6380 B =Y 
6390 A =D 
6400 NEXTY 

6410 M$<B)=CHR$<X)+MID$<M$(B>,2) 

6420 X$=LEFT$<X$,<B-1))+"1"+MID*<X$,<B+1 
) ) 

6430 C=A 
6440 NEXTX 
6445 S=1 
6450 W=W+1 
6455 P=P-1 
6460 PR I NT "LJ" * 

6470 GOTO 1400 

6500 REM ****** CHAIRMAN'S —ICE ****** 

6501 PRINT"LT 

6502 IFW=15THEN6510 

6503 REM 

6505 IFL <>WTHENM=M+1 

6510 PR INTERS PR I NTTAB < 10) "g£:H AIRMANS OFF 
ICE " : PR I NTE$: PR I NTE$S4>S* 

6512 PRINTS PERMITTED OVERDRAFT £"0:PRI 
NT"S3 BANK BALANCE £"K 

6514 PR INT"g| LEAGUE POSITION "ASC(M$<Q>) 
" OUT OF 3" 
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65 16 PR I NT "H MISDEMEANOR WARNING NUMBER 
" M 

6540 IFM>4THENPRINT"MH SUPREMO - YOU ARE 
SACKED":PR INTE$E*E$:END 
6560 IFW >14THEN6570 

6565 L=W 

6566 INPUT"HKI PRESS ME TURN* TO RETURN T 
O DIARY";X$ 

6568 GOTO 1000 

6570 PR I NT" HMEI CONGRATULATIONS - YOU W 

IN " 

6575 INPUT" ^ PRESS <RETURN> FOR NEXT 
SEASON ";x$ 

6580 GOTO4400 

10000 REM *** LOAD M/CODE +** 

10005 S = 0:FORT = 0TO78:READX:POKE <49152+T> 
, X:S=S+X:NEXTT 

10007 IFS< >8956THENPRINT"DATA ERROR IN L 

INES 10030-10060"SEND 

10010 P0KE54277,120sP0KE54278,£30 

10015 P0KE54296, 15:P0KE49182,80:P0KE5428 

7,80 

10020 SYS49152:RETURN 

10030 DATA 120,173,20,3,14 1,26,192,173,21 
,3,141,27,192,169,48,141,20,3,169,192 
10040 DATA 14 1 ,2 1 ,3,88,96,234,49,234,234, 
234,16,234,120,173,26,192,141,20,3,173 
10050 DATA27,192,141,21,3,88,96,234,165, 
197,201,64,240,14,141,1,212,173,30,192 
10060 DATA 105,1,141,4,2 12,76,75,192,173, 
30,192,141,4,212,234,108,26,192,0 
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You have lost the rest of your bomber squadron and are flying back to 
base all on your own. In the distance is an enemy plane. You’re the tail- 
end Charlie, and as the first of your foes closes in you’ve got to get him 
in your cross-hairs and blast him out of the skies. You can fire a second 
burst only after the first has run its course, and the enemy will weave 
about more on their run-ins as your score rises. 


0 REM NIGHTFIGHTER.UIALUIYN 

1 GOSUB63900 
3 GOSUB 1000 

5 UI2=256:PT = 0:H=0:S=.0£ 

6 DIM PK < 255) 3 D IM F <8,2 ),FD(8,£):DIM GK< 
255) iGOSUB2000 

7 K =0 s FOR I=0TO1iSS <I) = INT<RND< 1)*1000):N 
EXT I 

8 A5=0:M=9:MM=9:AL=0:AK=0:AA=0:FG=0:GOSU 
B1300:R=0:RR=0 

9 POKEUG , U0 s PR I NT 

10 PR INT"J" :PP=P:P =PEEK(197) 

15 ON P K < P) GOTO 105,20,30,40,50,60 
20 K = K +1:AK=AK+1 

22 IF P =6£THEN50 
24 IF P=12THEN40 

23 GOTO 100 

30 K=K-1:AK=AK-1 
32 IF P =14THEN50 
34 IF P =£0THEN40 
38 GOTO100 
40 K =K-40:AL=AL-1 
4S GOTO 100 
50 K=K+40:AL=AL+1 
58 GOTO 100 

60 IFFG=0THENFG= 1 : KUJ=K 

100 I FPP=PTHENPP =0:GOTO 15 

105 IF AA=0 THEN GOSUB50000 

140 IFAA = 0ORAK < 0ORAK>390RAL<1ORAL>23THEN 

152 

150 PRINTLEFT$<D$,AL);TAB <AK >D$(M> 
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152 IFFG=0THEN160 

153 IFR>MTHENFG = 0:R=0:RR=0:GOTO 160 

154 FOR 1=1T02 

155 IF R<>M THEN157 

156 GK=PEEKCFCR,I)+K-KW>:ON GKCGK>GOTO30 
0,157 

157 IFR<50R I =2THENP0KE F<R, I )+K~KW,FDCR, 
I ) 

158 IFR<50R I =2THENP0KE 54272+FCR,I>+K-KW 
,U2 

159 NEXT Is RR=RR+. 11*C10-RR):R = INT<RR>: IF 
R=9THEN R =100 

160 IFAATHENFORI=Q1T0Q4:POKEGGCI),GD:POK 
E54272 +GGCI>,U3:NEXTI 

162 IFAATHEN164 

163 GOTO 180 

164 A8 =0 s IF RND<1) * C,03+S)>.055THENA8 = 1 
175 MM=MM-S*C10-MM>:M=INTCMM>:IF M<0THEN 
G0SUB51000:M=9:MM=9 

178 IF A8THENAK=AK+K5sAL=AL+L5:A5=A5+1:I 

FA5=10THENA5=-10:L5=-L5SK5=-K5 

180 REM DISPLAY TWINKLING STARS 

182 FOR I=0TO1: IF CSSC I> +K > <0OR CSS <I)+K)>1 
000THEN184 

183 POKEUS+SSCI ) +K ,42 s POKEUC+SS CI)+K,UE 

184 NEXTI 
200 GOTO 10 

300 REM AIRCRAFT HIT 

310 POKEUG,UR 

350 FOR 1 = 1TO600 s NEXTI 

360 FG =0:A5 =0 

370 S =S +.005 

379 PT=PT+INTCS*MM*100> 

330 POKEUG, U0:H=H-H SPRINT"^" 

382 FOR I = 1T05 s PR INTTAB C I *4 ) "®aJ ELL 
DONE":NEXT I 

386 PR INT"HMYOU'VE HIT"H"ENEMY PLANES 
337 PR I NT " g|AND SCORED " I NT CS*MM* 100> "POIN 
TS THAT GO. 

388 PR INT" HTHAT BRINGS YOUR POINTS TOTAL 
TO"PT" 

389 PR INT" 1MTHE RECORD IS 10 PLANES." 

390 PR INT"MTHE NEXT PLANE WILL COME AT Y 
OU FASTER 
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391 PR INT"AND MORE AWKWARDLY. . . " 

395 FOR 1=1TO2000:NEXT I 
399 G0T08 

1000 REM INSTRUCTIONS 
1005 PRINT"LNIGHTFIGHTER 

1007 PRINT"B3HOOT DOWN THE ENEMY PLANES 
OUT OF A" 

1009 PR INT"STARLIT NIGHT SKY. 

II 

1010 PRINT"... BEFORE THEY SHOOT YOU DOWN 


1011 PRINT"UgPRESS DOWN KEYS TO MOVE ARO 
UND THE SKY. 

1012 PRINT" gl Q W E" 

1013 PRINT" \ |/ " 

1014 PRINT" A-S-O" 

1015 PRINT" /|\ " 

1016 PRINT" Z X C" 

1020 PR INT” IKEEP DEPRESSED FOR A LARGER 
MOVE. " 

1022 PR INT"HOLD DOWN S TO OPEN FIRE. 


1023 PRINT"HTHE GUN SIGHTS SWITCH ON AUT 
OMATICALLY 

1024 PR INT"AS SOON AS A NEW PLANE IS MOV 
ING IN TO ATTACK YOU. 

1025 PRINT"irrHIS IS A 3 DIMENSIONAL SIMU 
LATION SO 

1026 PR INT" WATCH OUT FOR RANGE.... ]§HAV 
E FUN.■" 

1030 PRINT"^RESS ANY KEY WHEN READYgi" 
1035 GETA$:IFA$=""THEN1035 

1040 PRINTU7S; " gttlilMaiiiMiMIQ K - WAIT 
A MOMENT" 

1045 PRINTU9$; 

1090 RETURN 

1300 D$<8)=" . " : D$<7> = " - " : D$ < 6 > = "-L" :D$<5) 
= : D$(4 ) = " II—O—CS^I-r" 

1310 D$<3) = "E&-< )-OaSTr'" !D$<2> = "IBSI—<0) 
—HraSiSlB OMi—i— - 

1320 d$<i> = "iimmi——(<>>——gmbhmbi/k 

$mjbi oihbl_ 

1330 D$<0) = i, iag®aaig^aL_— 
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1400 D$="S" :FOR I =0TO 100 : D*=D$+ " H" : NEXT I 

1500 Q1=1:Q4=4:GG=500+US:GG<1)=436+US 

1505 GG < 2 )=504+US:GG <3 > =330+US:GG <4 ) =620 

+US:GD=91 

1510 QW=480+US 

1393 RETURN 

2000 FOR I=0TO255:PK<I)=1:NEXT I 
20 10 PK <10)=2:PK < 13 )=3:PK < 23)=4! PK < 3 > =5 
2020 PK <62 > =2 : PK < 14 ) =3 : PK < 12 ) =2 : PK <20 ) =3 
:PK<13 > =6 

2040 FOR I=0TO255•GK < I > = 1 :NEXTI 

2050 GK <42 ) =2 : GK <46 ) =2 : GK <32 > =2:GK <160) = 

2 s GK(233)=2 

2 100 F < 0,1 >=US+430:F<0.-2>=US + 5 10:F< 1 , 1 > = 
US+497: F <1,2)=US+503 

2 110 F<2,1>=US+438:F<2,2)=US+502:F<3,1 ) = 
US+493:F <3,2)=US+501 

2120 FOR J =1T02:F<4,J)=F<3,J>:NEXTJ 
2130 FOR I=5T06:F0RJ=1T02:F<I,J>=US+500: 
NEXT J,I 

2140 FOR I=7T08 : FORJ =1T02:F <I,J > =US+540: 
NEXT J,I 

2200 FD<0,i)=10SsFD<1,1>=227:FD<2,1)=248 
:FD<3,1> =93:FD <4,1> = 108 

2210 FD<5,1>=111SFD<6,1>=100SFD<7,1)=63: 
FD(8,1)=45 

2220 FOR I=0TO8:FD <I,2)=FD <I,1> sNEXTI 
2230 FD<4,2 ) = 123 
2999 RETURN 

50000 IF RND<1><.9THEN RETURN 
50010 AA=1:AK=INT<RND <1>*24+8> 

50030 AL =INT< RND <1> *8 +7) 

50040 K5 =INT < RND <1>*3-1):L5=INT<RND<1>*3 
-I > 

50099 RETURN 

51000 REM FLASH SCREEN FIVE TIMES 
5 1002 FORK = 1T05:POKEUG,U1:FORN=1TO30:NEX 
TN:POKEUG,U0 

51004 FORN=1TO20:NEXTNsNEXTK 

51010 AA=0:FG=0:R=0:RR=0:AK=0:AL=0:S=.02 

: A5 = 0 

51050 PRINT" jgMMBS OH DEAR OH DEAR.. 

51060 PR I NT " HfiJYOU ' VE BEEN SHOT DOWN AND 
THAT'S YOUR 
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51070 PR INT" U_,OT FOR THE MOMENT! 

51080 PR INT"HarVOU SHOT DOUIN"H “PLANES . 
51082 PR INT" SHI TH A TOTAL OF"PT"POINTS. 
51085 PRINT"SDflTHE RECORD IS 10 PLANES... 
5 1080 PR I NT " gEHANOTHER GO? <Y/N) 

51091 GET A$: IF A$<>"" THEN 51091 

51092 GET A$!IFA$=""THEN 51092 

51094 IF A$="N" THEN PRINT"gMOK. THANKYO 
U.":END 

51096 PT=0iH =0 
51099 RETURN 

63900 REM COMMODORE 64 CLR/SOUND CODES 
63902 US= 1024 s UC=55296!UG =53281 

63904 UB=53280:UV=54296:UA=54277:UD=5427 
8:UH =54273:UL =54272 

63905 UW=54276:U0=0:U0$= ,, B" s U 1 = 1 :U1$="B" 
: U2=2 s U2$= "3" 

63906 U3 = 5:U3$ ="U":U4=6:U4$="S":U5=8:U5$ 
= " •• :U6=9:U6$="R" 

639 10 U7 =10s U7$= " : U8= 13 : U8$= "Bl" :U9=14: 

U9$="U":UU=4:UU$="i" 

639 15 UR =12:UR*="y":UE=7:UE$="0":UF=11:U 
F^="@“ :RETURN 
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You are a civil engineer who must build the bridge across a dangerous 
ravine before the train steams across. Watch out, there isn’t much time, 
and you must place each of your limited supply of bricks in the correct 
sequence to support subsequent ones. 


5 REM BRIDGES. . .WALWYN 
7 GOSUB7000 

10 REM NB=NO. OF BRICKS 

12 REM P =SCREEN POSITION OF BUILDER 

14 REM G=BASE SCREEN POSITION FOR SCREEN 
POKE 

15 REM GC=BASE SCREEN POSITION FOR SCREE 
N COLOUR 

18 REM 0(0) AND D(l) ARE SCREEN CHARACTE 
RS FOR A BRICK 

19 REM BK < 0 AND 1) ARE THE CHARACTERS UN 
DER THE BUILDER 

20 REM BTC0 AND 1) ARE THE CHARACTERS DI 
SPLAYED NOW 

21 REM BC(0 AND 1) ARE THE BRICK COLOURS 

22 REM RX IS HORIZONTAL POSITION OF TRAI 
N 

23 REM RY IS VERTICAL POSITION OF TRAIN 

24 REM R* IS THE TRAIN DESIGN 

26 REM S*(0> IS THE SIGNAL DESIGN 
28 REM S*(l) IS THE SIGNAL DESIGN (GREEN 
) 

30 REM DF =DEGREE OF DIFFICULTY (1-9) 

31 REM IF H =0 THEN HALF-A-BRICK 

42 REM BN=NUMBER OF BRICKS TO DO THE JOB 

43 DIM BK(1>,BT(1>,D(1>,BC(1>,S*(1> 

45 G =US s GC =UC:D(0)=204:D( 1 ) =239 


50 Y$=" 



60 BT= 
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65 R$=" £■■■■■! r ,n =□ £1HI 

llloooo 11 

67 RX=35:DF=0 

70 S* < 0 > =" “ajgilX^lfXSltX" 

75 s$<i>= h iE^^^©g■I>oalxl■Ix ,l 

78 GOSUB9500 
80 GO3UB4000 

100 REM START OF PROGRAM 
102 GOSUB8500 

105 DF =DF +1:BN = 0:H=1:RR=0:RY=5:BT<0>=102 
:BTC 1> = 102 

1 10 RX=35:P = 436:BK<0> = 160:BKC1>=160:BC<0 
> =U6 i BC( 1 > =U6 
115 RZ — 0:BF=0 

120 GOSUB5000:RT = TI+7200:BN=INTCBN/2) 

148 REM MOVE AND DISPLAY BUILDER BRICK 
150 IFNP =0THEN180 

155 FORJ =0TOH • POKEG+P +J,BK(J >:POKEGC+P+J 
, BC (J )!NEXTJ 

160 P=P+NP:IFP<320THENP=P-NP 
165 IFP >960THENP=P-NP 
170 FORJ=0TOH:BT<J)=102 

172 BK(J)=PEEKCG+P+J):BC < J >“PEEK CGC+P+J> 
175 NEXTJ 

190 FORJ =0TOHiPOKEG+P + J, BT< J >:POKEGC+P+J 

,U2:NEXTJ 

200 REM GET A KEY 

210 PRINTU4$; "HTIME LEFT = BRI 

CKS LEFT = 

215 R =INT(CRT-TI)/60>: IFRR=2THENR=0:GOTO 
218 

217 IFR< =0THENRR=1 

218 PRINTU2$;"aSSPEGREE OF DIFFICULTY="D 
F 

220 PRINTUF$; "gT'TAB <11);R;TAB <34)BN 
230 GETA$ 

240 NP=0: IFA$= ,, A"THENNP = -1 
250 IF AT= 11 S " THENNP= 1 
260 IFA$ = " LI" THENNP = -40 
270 IFA$ ="2"THENNP=40 
280 IFA$="+"THEN300 
285 IFA$="-"THEN400 
288 IFAS="t"THENRR=1 
290 IFRRTHENGOSUB500 
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£91 IFA£< > " # "THEN298 
£9£ H=H+1:IFH=£THENH=0 

£93 IFH=1THENP0KEG + P,BK <0):POKEGC+ P,BC <0 
X GOTO 160 

£94 FOR J =0TO1:POKEG+P+J,BK<J):POKEGC+P+J 

,BC < J>:NEXTJ 

£95 GOTO 160 

£98 GOTO 150 

300 REM BRICK BUILD 

305 IFBN<H*£THEN150 

310 FOR J =0TOH ! IFBKCJX >3£THEN150 

3£0 NEXTJ 

330 FORJ =0TOH s BK <J)=D(J):BTCJ)=DCJ):BC<J 
)=U0:NEXTJ 
350 BN=BN-H*£ 

355 FORJ =0TOH: IFPEEK<G+P+40+J)< >3£THEN36 
5 

360 NEXTJ:GOTO370 
365 GOTO390 

370 REM BRICK UNSUPPORTED 

37£ GOSUB£000 

390 GOTO 150 

400 REM REMOVE BRICK 

405 IFH = 0ANDPEEK < G + P +1)=D<1>THEN150 
4 10 FOR J =0TOH s IFBKCJX >D <J ) THEN 150 
4£0 NEXTJ 

4£5 REM CHECK IF BRICK SUPPORTS ANOTHER 
430 FORJ=0TOH: IFPEEKCG+P+J-40X >3£THEN15 
0 

440 NEXTJ 

460 REM OK TO REMOVE BRICK 

470 FORM=0TO4:FORJ =0TOHiPOKEGC +P +J,1:NEX 
TJ 

480 FORJ=0TOH:POKEGC+P+J,£:NEXTJ:NEXTM 
49£ FORJ =0TOH:BK <J)=3£:BT <J > = 10£:BC < J >=U 
4:NEXTJ 
494 BN=BN+H*£ 

496 GOTO 150 
500 REM FINISH 

505 IFRR=1THENRR=£:PRINTUF$; ,, TO>ffiBHI 1, S$ 
C 1 ) s GOSUB9000 

510 RX = RX- 1 : IFRX<4THENGOSUB9000:GOTO 1000 
5£0 IFPEEK <G+3££+RXX l£8THEhF2 = l 
5£5 IFR2 >0THENRY = RY+1:R2=R2 + 1 
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530 PR INTU2*;LEFT*<Y*,RY>;LEFT*<X*,RX>;R 
*: G0SUB9100 

532 IFRZ>1ANDRZ < 5THEN525 
535 IFRZ=0THENRETURN 
537 GOSUB9200 

540 PR INTU2*; "BRIDGE NOT COMPLETE! YOU' 
VE FAILED ... 

550 PRINTU0*;"SSANOTHER GO? <Y/N>" 

n 

560 GETA*:IFA*<>""THEN560 
570 GETA*:IFA*=""THEN570 
530 IFA*="Y"THENRUN 

530 PRINT"^SS^THANKYOU FOR PLAYING 'GRID 
GES 1 
595 END 

999 GOTO200 

1000 REM SUCCESS! 

1010 PRINTU4*; "gMLJELL DONE.ANOTHER 

GO? <Y/N> 

1020 GETA*:IFA*<>""THEN1020 
1030 GETA*:IFA*=""THEN1030 
1035 GOSUB9500 
1040 IFA*="N"THEN590 
1050 GOTO 100 

2000 REM BRICK UNSUPPORTED 

2010 FORJ =0TOH:POKEG+P+J,BK (J ) :POKEGC+P + 
J ,BC(J):NEXTJ 

2040 FORJ =0TOH: IFPEEKCG+P+40+J><>32THEN2 
060 

2050 NEXTJ:BF=1:GOTO2070 

2060 BF =0:FORJ =0TOH:POKEG+P+J,BT(J >:POKE 
GC+P+J,U2:NEXTJ 

2070 FORJ =0TOH:POKEG +P +J,32:NEXTJ 

2071 IFBF =0THENRETURN 

2072 P =P +40 

2073 IFP >360THENP =960:BF=0 
2075 GOTO2010 

2030 RETURN 

4000 REM INSTRUCTIONS 

40 10 PRINT" J" :POKEUG,U9:P0KEUB,UF 

4020 PR INTU2*"H B R I D G E S 

II 

4030 PRINTU4*; "HYOUR TASK IS TO BUILD A 
BRIDGE FOR THE 
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4040 PR INT"TRAIN ACROSS A DANGEROUS RAVI 
NE. 

4050 PRINT"YOU HAVE TWO MINUTES BEFORE T 
HE TRAIN 

4060 PR INT"STARTS TO MOVE AND A LIMITED 
NUMBER OF 

4070 PRINT"BRICKS TO BUILD THE BRIDGE. T 
HESE ARE 

4080 PRINT"DI SPLAYED AT THE TOP OF THE S 
CREEN. " 

4100 PR I NT "SITHE KEY CONTROLS ARE:"U2$ 
4110 PRINT"fflA : MOVES THE BUILDER TO THE 
LEFT 

41£0 PR INT"S : MOVES THE BUILDER TO THE 
RIGHT 

4130 PR INT"W : MOVES THE BUILDER UP THE 
SCREEN 

4 140 PR INT"2 : MOVES THE BUILDER DOWN TH 

E SCREEN 

4160 PR INT"+ : LAYS A BRICK IN PLACE 
4170 PRINT"- : REMOVES A BRICK 
4 180 PRINT"* : CHANGES TO 1 HALF-A-BRICK' 
AND BACK 

4190 PRINT" TO FULL BRICK SIZE AGAIN 
4195 PRINT"t : IF YOU FINISH BEFORE TIME 
IS UP!" 

4200 PR INT"MISPRESS ANY KEY WHEN READY" 
4210 GETA$:IFA*<>""THEN4210 
4220 GETA$:K=RND<1>sIFA$=""THEN4220 
4300 PRINT"kJYOU MAY ONLY PLACE A BRICK W 
HIGH IS 

4310 PR INT"SUPPORTED - EITHER UPON ANOTH 
ER BRICK 

4320 PRINT"OR UPON PART OF THE RAVINE WA 
LL. 

4330 PR INT"AN UNSUPPORTED BRICK WILL TUM 
BLE DOWN!" 

4340 PRINT"HTO REMOVE A BRICK, YOU MUST 
PLACE 

4350 PR I NT"THE 'BUILDER' EXACTLY OVER TH 
E BRICK TO 

4360 PR INT"BE TAKEN AWAY. THIS ALSO APPL 
IES TO 

4370 PRINT"'HALF-BRICKS'. YOU WILL NOT B 
E ALLOWED" 
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4380 PR INT"TO REMOVE A BRICK IF IT SUPPO 
RTS 

4390 PR INT"ANOTHER BRICK, SO YOU WILL HA 
VE TO 

4400 PRINT"BUILD FROM THE BOTTOM AND REM 
OVE FROM 

44 10 PR INT"THE TOP. <PRETTY OBVIOUS REAL 
LY ! > 

4420 PR INTU4$"2Ja!HEN THE TRAIN STARTS TO 
MOVE, YOU 

4430 PR INT"CAN STILL BUILD BRICKS BUT YO 
U WON'T 

4440 PRINT"HAVE MUCH TIME TO FINISH THE 
BRIDGE ..." 

4450 PRINT"THE 'BUILDER BRICK' STARTS OF 
F 'UNDER' 

4460 PR INT"THE TRAIN. KEEP AN EYE OUT FO 
R THE TIME" 

4470 PR INT"AS WELL AS THE NUMBER OF BRIC 
KS LEFT." 

4430 PRINT"WHOLE BRICKS COUNT:2 AND HALF 
-BRICKS:1. 

4 490 PR INT"REMOVING THEM WILL ADD TO YOU 
R STORE." 

4500 PRINT"M300D LUCK. IT GETS MORE DIFF 
ICULT AS 

4510 PR INT" YOU GO ALONG. ^RESS ANY KEY 
TO START®" 

4980 GETA*:IFA$<>""THEN4980 
4390 GETA*:IFA*=""THEN4930 

4999 RETURN 

5000 REM SET UP SCREEN AND RAVINES 

5010 PRINT : POKEUG , U9 : POKEUB , U3 

5020 FORJ =0TO15 
5030 PRINT"a n U6^;B^; 

5040 NEXTJ 

5850 FOR J=0TO39:POKEG+960+J,160:POKEGC+ 
960+J,U6 
5060 NEXTJ 

5100 PRINTUF$; "®BISBIII l, S$(0) 

5110 printu2$;left$<y$,ry);left$<x$,rx>; 
R* 

5200 FOR J= 1TO INT< DF/2) 

5210 N=INT(RND <1>*<l+DF*2>+8>: IFN/2=INT< 
N/2 > THEN5210 




Bridges 33 


5220 S =INT CRND < 1 )*30+5) 

5230 IFN+3 >32THEN5210 

5240 FORL=0TON-INT<RND <1 ) *4 ):A=INT<RND<1 
>*2>iFORK =0TON 

5245 Pl=G+320+S+K+A+L+L*40:IFP1-US>960TH 
EN5230 

5247 IFA =1THENP1=P1-1 

5248 IFPEEK <P1> < >32THENBN=BN+1 
5250 POKEP 1 ,32 

5260 NEXTK:IFPEEK<P1+1>=32THEN5275 

5270 POKEP 1 + 1 ,244 

5275 N=N-1:IFA=0THENS=S-1 

5280 NEXTL 

5290 NEXTJ 

5999 RETURN 

7000 REM ******************* ***** ***** 
7002 REM COLOUR CODES FOR COMMODORE 64. 
7005 REM (ONLY USE THESE COLOURS) 

7010 U0=0:U0$="®";REM BLACK 

7020 Ul = l:U1$="£" :REM WHITE 

7030 U2 =2 s U2$="3" ! REM DARK RED 

7040 U3=5i U3$="!i" : REM GREEN 

7050 U4 =6 : U4$= "13" : REM DARK BLUE 

7060 U5=8:U5$ ="":REM ORANGE 

7070 US=9:U6$="^":REM BROWN 

7080 U7=10:U7$="0l" : REM PINK 

7090 U3= 13 : U8$ = "HI" : REM LIGHT GREEN 

7100 U9=14:U9$="U" :REM LIGHT BLUE 

7 110 UU =4 s UU$= " j*" i REM PURPLE 

7120 UR=12iUR$="Sfl"s REM LIGHT GREY 

7130 UE=7:UE$="fl" iREM LIGHT YELLOW 

7140 UF = 1 1 s UF$= "S' 1 i REM DARK GREY 

7200 REM SCREEN 'POKE' CODES FOR 64. 

7210 US =1024iREM SCREEN POKE CHARACTER 
7220 UC =55296 5 REM SCREEN POKE COLOUR 
7230 UG=53281:REM BACKGROUND COLOUR 
7240 UB =53280: REM SCREEN BORDER COLOUR 
7300 REM SOUND 'POKE' CODES FOR 64. 

7310 UV =54296:REM VOLUME FOR 3 VOICES 
7320 UA =54277!REM ATTACK FOR VOICE 1 
7330 UD=54273 : REM SUSTAIN FOR VOICE 1 
7340 UH =54273:REM HIGH BYTE FOR VOICE 1 
7350 UL=54272:REM LOW BYTE FOR VOICE 1 
7360 UW=5427G•REM WAVEFORM FOR VOICE 1 
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7400 RETURN 

7500 REM ***************************** 
9000 REM TRAIN WHISTLE 
9005 GOSUB9500 

90 10 POKEUV,15 s POKEUA,31:POKEUD,32:POKEU 
W, 17 

9015 POKEUH,60:POKEUL,255 
9020 FORL =1TO100:NEXTL 

9030 FORL =0TO£00STEP£:POKEUL,L:NEXTL 
9035 GOSUB9500 
9040 RETURN 

9100 REM STEAM TRAIN 'CHUFF' 

9105 GOSUB9500 

9110 POKEUV,15:POKEUA,9:POKEUD,£4:POKEUW 
, 1 £9 

9 115 POKEUH,INT < RND <1)*30)+£0:POKEUL ,0 
9140 RETURN 

9£00 REM TRAIN CRASHES SOUND 
3£05 GOSUB9500 

9£10 POKEUV,15:POKEUA,1£:POKEUD,1£8:P0KE 
UW,1£9 

9215 POKEUH,18:POKEUL,0 
9£40 RETURN 

9500 REM CANCEL VOICE ONE SOUND 

9510 POKEUV,0:POKEUA,0:POKEUD,0:POKEUH,0 

95£0 POKEUL,0:POKEUW,0:RETURN 



Grenadier 


This is a game for two players. Both are armed with a store of hand 
grenades and a large shovel. This idea is to lob a grenade at your 
opponent and blast him from the face of the Earth. There are, however, 
tactical considerations. Essentially you can either throw a bomb or 
make a move (which gives you the option of either moving along the 
mountain side or tunnelling yourself into a safe bolt hole). If you decide 
to move you can do so for four positions, however if you elect to dig you 
only have two moves (because of the extra effort involved). Because 
there is obviously a limit to the distance that a grenade can be thrown, 
both players have restricted arm strengths, so tactical position is of 
prime importance. 

1 REM COMMODORE 64 PROGRAM 

2 GOSUB5000 

5 REM GRENADIER.UJALUIYN 

6 GOSUB63900 
10 G =US 

12 P*<1>=U2$+"LEFT PLAYER":P$<2)=U4$+"RI 
GHT PLAYER" 

14 POKEUB.UF:POKEUG,U0 

15 PRINT"J"UF*;:P0KEUG,U9 

20 X = RND(1> s Z =RND <1>:A=RND<1>*5:B=RND <1> 

*5 

22 KZ=0:X(1)=0:X<2)=0:Y<1>=0:Y<2)=0 
25 FOR I=0TO39 

30 X=X+RND <1)/2:Z = Z +RND ( 1 )/2 
40 Y= I NT <S INOO *A+COS (Z >*B+14> 

42 FOR K=YT024 

45 POKEG+ I +40*K,160:POKEUC+1+40*K,U6 
48 NEXTK 
50 NEXT I 

100 X(1> = INT (RND < 1>*8 + 4)! X < 2 ) = INT < RND <1) 

*8+28 ) 

110 FOR 1=1T02 

120 K =PEEK (G+X< I )+40*<Y< I > + 0) 

130 IF K =32 THEN Y<I)=Y<I) + 1:GOTO 120 
140 POKE G+XCI>+40*Y<I>,35 
145 UM=U2sIFI=2THENUM=U4 
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147 POKE UC + X < I )+40 *Y <I>,UM 
150 NEXT I 

200 FOR I=1T02:MM=4:IFLZ=1THENLZ=0:1=2 

201 FOR K=1T02sUM=U2:IFK=2THENUM=U4 

202 IF PEEK<G+X<K>+40*<Y<K)+1))<>160 THE 
N 204 

203 POKEG+X(K)+40*Y<K),35:POKEUC+X<K>+40 
*Y < K >,UM s NEXT K:GOTO205 

204 POKE G+XCK)+40*Y<K),32:Y(K)=YCK)+1:G 
OTO202 

205 PRINT"aa"P*< I > "■ i3M:DIG OR MOVE 
T:THROW" 

206 GETA$:IF A$ ="" THEN 206 

207 IF A*="T" THEN 215 

209 IF A$="M" THEN 9000 

210 GOTO206 

215 INPUT" SEJANGLE -90 TO +90";A<1> 

220 IF A < I } <-90QRA(I)>90THEN215 
225 I NPUT " SKHJ3TRENGTH (1-5)"JP(I) 

227 P <I> =P <I> #2 s IF P <I)< =0ORP <I)>10THEN2 
25 

228 GOSUB 10000 

240 IF 1=2 THEN 260 

250 YF = - A < I ) /90 *P C I ) /15 

252 XF = (90-ABS <A <I> >)/90*P<I)/15 

255 G0T0275 

260 YF=-A(I)/90*P<I>/15 

262 XF = -<90-ABS(A(I)> >/90*P<I)/15 

275 IG =0:XX=X <I)+SGN<XF) + .5:YY=Y<I>+SGN< 

YF > + .5 

280 Y8 =0:X8 = 0 

300 XX = XX +X8 : YY=YY + Y8 : YF =YF + .01 : IFYFMTH 
ENYF =1 

301 X8=XF:Y8=YF 

305 Z1 = 1NT < G + INT < XX > + INT < YY)*40) 

306 Z2=INT<G+INT<XX+X8 > + INT(YY + Y8)*40) 

307 IF YY + Y8 >24 OR XX+X8<0 OR XX+X8>39 T 
HEN POKE Z1,32:GOTO400 

308 IF YY + Y8<1 THEN IG=1:POKE Z1,32:G0T0 
313 

310 IG =0 

313 K =PEEK <Z2 ) 

315 IF IG THEN 300 

320 IF K =32 OR K=81 THEN 340 
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321 IF K =35 THEN KZ = 1 
323 POKEZ 1 ,32 

330 FORJ=1TO20:POKEZ2,42:POKEZ2,32:NEXTJ 
: IF KZ =0 THEN 400 

333 IF INT<G+X(2)+40*y<2>)=Z2 THEN LZ = 1: 
W1=UI1 + 1-G0T0335 

334 U12 =W2 + 1 

335 FOR J =1T05:POKEZ2 +J,42 s P0KEZ2-J,42 : P 
OKE Z2-J*40,42:POKEZ2+J*40,42:NEXT J 

336 PR I NT 11 Sl^DESTRDYED ! ANOTHER GAME? <Y/ 
N>"s GO3UB2000:GET A$:IF A$="" THEN336 

337 IF KZ = 1 AND A$="Y" THEN G0T05 

338 IF KZ = 1 THEN PRINT 11 gMTHANKYQU FOR TH 
E GAME..."sEND 

340 POKEZ1,32 

350 P0KEZ2,81: GOTO300 

400 REM 

450 NEXT I 

500 GOTO200 

2000 PR I NT " J3SCORE IS MOW. . . . . . 

2010 PRINTU2*;"HEEFT:“Wl" 

"1J4$; "RIGHT: »W2 
2100 RETURN 
5000 PR INT" fcJSRENADIER" 

5010 PR INT"gJTHIS IS A CONTEST BETWEEN TW 
0 PLAVERS 

50?0 PRINT"ARMED WITH SHOVELS AND GRENAD 
ES , " 

5030 PR INT"EACH PLAYER IN TURN MAY EITHE 
R ^HROW A 

5040 PR INT"HAND GRENADE OR MOVE AND/OR D 
IG 

5050 PR INT"THROUGH THE ROCK." 

5060 PR INT"HIF THROWING, YOU MUST TELL T 
HE COMPUTER 

5070 PR INT"WHAT ANGLE YOU ARE THROWING T 
HE GRENADE 

5080 PRINT"<A NEGATIVE DEGREE IS DOWNWAR 
DS > 

5080 PR INT"AND HOW MUCH STRENGTH YOU ARE 
USING." 

5 100 PR INT" HI F MOVING, PRESS A KEY TO MO 
VE OR DIG:" 

5 110 PR INT"Q=UP AND LEFT , W=UP , 

ND RIGHT 


E =UP A 
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51 20 PR I NT " A=LEFT, S =STAND STILL , D=RI 
GHT 

5130 PR I NT" Z =DOWN AND LEFT,X=DOWN,C=DOWN 
AND RIGHT 

5140 PR INT"HD IGGING WILL TAKE UP MORE TI 
ME THAN 

5150 PR INT"MERELY MOVING OVER THE MOUNTA 
IN TOP" 

5160 PRINT"BMGOOD LUCK ... DON’T GET CAUGH 
T. . . " 

5200 PRINT'^RESS ANY KEY TO START" 

52 10 GETA$: IFA$= n "THEN5210 
5230 RETURN 

9000 PRINTU6$"a§PRESS APPROPRIATE LETTER 
:"UF$;"Q W E 

9005 PRINT" "UF$ 

;"A "U2$; u asB"UF$;" D 

9010 PRINT" "UF$ 

; "Z X C" 

9020 B = 0 s GET B$: IF B$="" THEN 9020 
902 1 IFB$="Z"THENB =1 

9022 IFB$="X"THENB=2 

9023 IFB$="C"THENB=3 

9024 IFBT="A"THENB =4 

9025 IFBT="S"THENB=5 

9026 IFB$="D"THENB=6 

9027 IFB$="Q"THENB=7 

9028 IFB$ ="W"THENB=8 

9029 IFB*="E"THENB=9 

9030 IFB =0THEN9020 

9035 XX=X<I):YY=Y<I)SPOKE G+X<I>+Y<I>*40 
r 32 

9040 ON B GOSUB 9110,9120,9130,9140,9150 
,9160,9170,9180,9190 

9050 IF X <I)>39 OR X(I)<1 OR Y<I)>24 OR 
Y <I)< 2 THEN X <I>=XXs Y < I )=YY 

9055 K=PEEK < G+X <I)+40*Y <I)> 

9056 IFK =160 THEN MM=MM-1 

9057 MM = MM- 1: IF MM<0 THEN X <I)=XX!Y(I)=Y 
Y:GOSUB10000:GOTO400 

9060 UM=U2 sPOKE G+X<I>+40*Y<I),35: IF I=2T 
HENUM=U4 

9062 POKE UC+X <I)+40*Y<I>,UM 
9065 GOSUB 10000 
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9070 IF MM>0 THEN 9000 
9030 GOTO400 

9 110 X<I)=X<I>-l:Y<I>=Y<I>+l:RETURN 
9120 X<I>=X<I>+0!Y<I>=Y<I)+1:RETURN 
9130 X< I )=X<I> + l:Y<I>=Y<I> + 1:RETURN 
9140 X<I)=X<I)-l:Y<I)=Y(I>+0 :RETURN 
9 150 X(I)=X <I)+0:Y<I> = Y<I)+0:RETURN 
9 160 X<I>=X<I> + l:Y<I)=Y<I} +0:RETURN 
9170 X(I)=X(I)-l:Y(I)=Y(I)-l:RETURN 
9 130 X < I )=X(I> +0:Y CI> =Y <I>-1:RETURN 
9190 X<I>=X<I)+l:Y<I>=Y<I> -1:RETURN 
10000 PR INT"g 

II 

10100 PRINT" 

II 

10105 PRINT" 

ii 

10107 PRINT" 

II 

10110 RETURN 

63900 REM COMMODORE 64 CLR/SOUND CODES 
63902 US =1024 s UC=55296 : UG=53281 

63904 UB=53280:UV=54296:UA=54277:UD=5427 
3:UH=54273:UL=54272 

63905 UUI=54276:U0 = 0:U0*="B" : U 1 = 1 : U 1 *>= "31" 
s U2=2 s U2$="3" 

63906 U3 = 5 : U3$= " II" : U4 =6 : U4$ = "3" :U5 = 8:U5$ 
="":U6=9:U6*="R" 

639 10 U7=10:U7*="e n : US= 1 3 : U8* = "||" :U9=14s 
U9$ = : UU=4 : UU$= "1" 

639 15 UR=12:UR$="k3" :UE=7:UE$= n n" :UF = 1 1 :U 
F*="B" :RETURN 




Cheshire Cat 


Cast adrift in space, and without fuel, you have only a beam weapon 
with which to defend yourself against the hostile nasties that assail you 
from all sides. 


Your craft can be spun round to the left and right with the 1 and 2 keys 
Your beam is fired with the 9 key, and if you’re really desperate, you 
can always do your disappearing act by pressing the 0 key and visiting 
the void for a while. 

1 REM***64 VERSION*** 

5 REM*** CHESHIRE CAT *** 

10 REM MODIFIED FOR CBM 64 BY I.FROST 19 
83 

15 GOSUB9000 
18 HS=0 
20 GOSUB8000 

99 REM MAIN PROGRAM LOOP: P=VALUE KEY PR 
ESSED 

100 P =PEEK(197) : IFP=56THENR0=R0-1: IFRO< 1 
THENRO =8 

105 IFP =59THENR0 =RO +1: IFRO>8THENR0=1 
130 POKECE,R0+128:P0KE55296+CE-1024 ,0 
140 IFP =35THENGOSUB4000 :REM ’0’ 

150 IFBTHEN IFF' =32THENG0SUB 1000 : REM *9' 

130 ONTGOSUB0,200,300,400,500,600,700,80 
0 ,300 

182 P=PEEK <CE >: IFP>1360RP<129THENGOSUB70 
00 

135 tx=tx -1: pr i nt » aiiuiyiiiMuiimii 
IIBftllAr;T.X; "10 " : IFT.X = 0THENGOTO6000 

190 IFT1-TX > = 29THENGOSUB3000 
195 GOTO 100 

199 REM 

200 Y a Y+2:X=Xf2:IFY>=24THENY=2 

2 10 IFX > =39THENX=0 

220 PRINT ,, a ,, ;LEFT^(AC^,Xl ) ; LEFT$<DN$, Y1 ) 

; " mm "; 

225 PR I NT"ST ?LEFT*<AC*,X>;LEFTSKDN*,Y>;" 
aJKSHI^M 11 
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?_30 Y1 =Y: XI =X: RETURN 

300 Y=INT (Y+RND (I>*1.5-RND(:X=X+2 

:IFY>-24THENY=1 

305 IFY<=1THENY=23 

307 JFX > = 33THENX~0 

320 GOTO220 

4 00 Y =INT(Y+RND(I> *3-RND(I)*3):X =INT(X+R 
ND(I)*5-RND(I)+3) 

4 10 IFX < 0THENX =39 
430 IFX>38THENX=0 
430 IF Y >£3THENY=2 
440 IFY< 2THENY=£3 

450 PRINT n a".*LEFTS(ACS,Xl >;LEFTS(DNS,Y1 > 

; ". muu ■ ; 

460 PRINT ,, a ,, .?LEFTS<ACS,X>;LEFTS<DNS,Y;>; " 

■tf'dSHPQ " 

470 Y1=Y:X1=X:RETURN 

500 Y=Y-3:IFY<£THENX=X+INT(RND< I > *7 > +3 : Y 
=23: IFX >30THENX =INT(RND(I)*5> 

5 10 PR INT"9" ;LEFTS(ACS,X1>;LEFTS<DNS/Y1> 

; 11 mu o 11 ; 

520 PR INT"3";LEFTS(ACS,X);LEFTS(DNS,Y>; " 

aa^oaiiPQ" 

530 Xi=X:Yl=Y:RETURN 
600 DE = DE + 1 

610 IFDE=5THENY= I NT (RND ( I >*23:> + l :X=1NT(R 
ND ( I ) *39 ) + 1 :DE=0 

615 Y=Y +INT <RND <I)*2-RND<I>*£>:X=X+INT(R 
ND(I> *2-RND(I>*2 > 

617 IFY< 20RY >£30RX< 0ORX>39THENDE=5:G0T06 
10 

620 PR I NT "3" LEFTS (ACS, X 1 >; LEFTS (DNS, Y1 ) 

;" mm "; 

630 PR I NT " 3" / LEFTS (ACS, X > LEF TS ( DNS , Y > " Q 
5RSIMITU " 

640 Y1=Y:X1=X:RETURN 

700 Y=Y+INT(RND(I> *2-RND <I) + (Y<11>-(Y>11 
> > : X =X+2 

710 IFX>33THENX=0 

720 IFY >230RY<2THENY=11 

730 PR I NT !l a" ? LEFTS ( ACS, X 1 >;LEFTS(DNS,Y1 > 

;" mm "r 

735 PRINT"a n ;LEFTS(ACS,X);LEFTS(DNS,Y>; " 

■JjBRMllQP 11 
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740 X1=X:Y1=Y:RETURN 

800 Y=Y+DI:X=X+2:DE=DE+1: IFOE=5THENED=0 : 
DI=-D I 

8 10 IFY< 2THENY=23 
820 IFY>23THENY=2 
330 IFX >39THENX =0 

340 PRINT"a";LEFT$<AC$,Xl);LEFT*<ON*,Y1) 

;" mm d "; 

845 PRINT ,, a i, ;LEFT*(AC*,X);LEFT*(DN*,Y); " 
M5RMMQP 11 

850 Y1=Y:X1=X:RETURN 
900 Y=Y+DI:X=X +DE 
910 IFX >39THENX =0 
920 IFY< 2THENY=23 
930 IFY>23THENY=1 

940 IF R ND(I)>.8THENDE= <2ANODE=0):DI=(2AN 
DD1=0) : IFRNDCI)>-5THENDI=-DI 
950 PRINT"a";LEFT$(AC^,Xl);LEFT*(DN*,Y1) 
; 11 19HS 11 ; 

960 PR INT"i"’LEFT*(AC*,X);LEFT*<DN*,Y )! " 
mi ISBBB1 I " 

970 Y1=Y!X1=X:RETURN 
939 REM FIRE LASER 

1000 b=b- i; pr i nt" aammnn—mir ■ b 

; "li " 

1005 P0KES0+1, 40: POKESO+4,32:P0KES0+4,33 
10 10 FORJ=SR <RO)TOST(RO)STEP-UP (RO) 

1020 P = < J-UP(RO ) ): IFPEEK<P)<>32ANDPEEK<P 
X>46THEN1500:REM A HIT! 

1030 POKEJ,CP <RO )!NEXT 

1040 FORJ=SR<RO)TOST(RO)STEP-UP(RO):POKE 
J,32:NEXT:P0KES0+4,32 
1050 IFB =0THEN6000 
1060 RETURN 

1500 P0KE53281,1:FORJJ=SR(RO)TOJSTEP-UP < 
RO):POKEJJ,32:NEXT:P0KE53281,6 
1510 POKESO +4 ,32: GOTO2000 

1999 REM A HIT 

2000 print ,, ^ ,, ;left*<ac*,X);left*<dn*,Y); 

" MSB " 

2020 HIT=0:SC=SC+O:PRINT"B®H^ n /‘SC; "81 " 

2024 Y=Y*08 +30:X=X*08 +20:HI=0: IFX>250THE 
NH 1 = 1:L0=X-251:GOTO2026 

2025 LO=X:POKESO+18,128:POKESO+18,129:P0 
KESO+15,35 
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2026 P0KES0+18,128:POKESO+18,129:POKESO+ 
15,35 

2027 POKE2040,192:POKEV,LO:POKEV+16,HI:P 
OKEV +1,Y:POKEV+21,1 

2029 REM * EXPLOSION * 

2030 FORJ =0TO15 : FORE =0TO1 

2035 P0KEV+29,E:POKEV +23 ,1:P0KEV+39,J 
2040 FORK=0TO50 : NEXT 
2050 NEXTE, J!POKEV+21,0 
2300 IFB =0THENS000 

2499 REM CHOOSE NASTIE 

2500 T=INT <RND (I> *8 ) +2 : Y=INT <RND (I)*24)+ 
1 : X=0 

2504 Y1=Y:X1=X:T1=TX 

2505 ONTGOTO0,2510,2510,2520,2520,2530,2 
532,2532,2534 

2510 A*( 1 ) = "aJK n :A*(2) = ,, a^M" :O=(20ANDT=2 

> + (10ANDT=3)s GOTO2540 

2520 A*( 1 ) = "^40 " : A*(2>=" fQ" :0=(25ANDT=4 

> + <10ANDT=5):GOTO2540 

2530 A*( 1 ) = "#3S " : A* ( 2 > = " ifru " :DE=0:O=30:G 
OTO2540 

2532 ASK 1) = "aSR":A*(2) = "3DP":0=(25ANDT=8 
) +(20ANDT=7 >:DE=0:DI=-2 s GOTO2540 
2534 DI=0:DE=2:A*(1) = "fll I":A*(2> = "fll I " :O 
=20 

2540 PR INT"g"; LEFT*(AC*,X>;LEFT*(DN*,Y); 

A*< l); "fflai".; A*(2) 

2550 RETURN 

3000 REM THING FIRE 

3010 IFX=LXTHENRETURN 

3020 J J=LY-Y: bJ=Y: MU= 120 : POKESO+ 4,32 : POKE 

SO+4,33:POKESO+5,15 

3030 FOR I I=XTOLXSTEP(LX-X)/20 

3040 W=IaJ+JJ/20 : POKESO + 1 ,MU:MU=MU-5: IFMU = 

<0THENMU =5 

3050 PR I NT "a" ; LEFT* (AC*, I I LEFT* (ON*, LI) 

; 

3055 PR INT"9" ;LEFT*(AC*,IJ > ; LEFT*(DN*,LI~ 
JJ/20 >;" " : I j = 11 

3060 NEXTI I 

3070 PR I NT "g” ; LEFT* (AC*, IJ > LEFT* (DN* ,Li- 
JJ/ 20 );" " 

3100 POKESO + 4,32: GOTO7000 
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3999 REM '0' OPTION 

4000 TX = TX -30 i T1 =T 1 -30 SPRINT" aUMMlUl 


4005 IF TX < 1THEN6000 

40 10 FORG-’7TO0STEP- 1 

4000 F3KE55296+CE-1024,G:NEXT 

4030 POKESO + 1 ,5!POKESO +4 ,32:POKESO +4,33 

4040 FORF =1T08:FORG =1TO 10:NEXTG 

4042 ONTGOSUB0,200,300,400,500,600,700,3 

00,900 

4044 NEXTF 

4050 FORG = 0TO7IP0KE55295 +CE-1024, G:REM S 
OUND 

4052 NEXTG 

4060 POKESO+4,32: RETURN 

5999 REM END OF GAME 

6000 POKESO + 4,16:POKESO +4,17:P0KES0+5,14 
6010 FORG=0TO8:FORX=0TO8 

6020 POKE53280,G:P0KE53281,X 

6025 POKESO+1,08*G:PRINT 

6030 NEXT:NEXT:POKE 198,0:P0KE53281,6 

6035 POKESO, 16 

604e PR I NT 11 AMF OVERHi 

lEBiyigi^SCORE = " ; SC 
6045 IFSC< =HSTHEN6060 

6050 HS=SC s PRINT"SHNELL DONE- A NEW HIGH 
SCORE ! " 

6055 INPUT"PLEASE ENTER YOUR NAME.";H$:F 
ORF=0TO1000:NEXT:GOTO6070 

6060 PRINT"MMTHE HIGH SCORE IS ";HS;"POI 
NTS":PR INT"BY ";H$ 

6070 PRINT " fi&MP RESS ANY KEY TO PLAY AGAI 
N. " 

6080 GETA$:IFA$=""THEN6080 
6080 P0KE53281,7:PRINT"J" :P0KE532S1,6:RE 
M NOW SOUND 
6100 GOTO20 

6999 REM OUCH - LOSS OF LIFE ETC.. 

7000 L I =L I - 1 : PR I NT 11 ; L I 

7005 POKEV+16,0:POKESO + 18,128:POKESO +18, 
129:POKESO+15,5 

7810 FORF=0TO15:G=15-F 

7014 FORE-0TO1 

7015 POKEV,160:POKEV + 1 , 127:P0KEV+21,1 
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7016 POKEV+39,G:P0KE53281 ,F :POKEV+23,E:P 
OKEV+29, Es PGKE2040,192 
70 17 FORJ =0TG5 : NEXT 
7020 NEXTE, F 

70*10 POKEV + 2 1 , Q : IFL I =0THEN6'000 

7050 PR I NT " a" ; LEFT* < AC*, X > i LEFT* < DN* , Y > ; 

J59BI " 

7060 P0KE5323 1 06 : GGTO25O0 

7-333 INITIALISATION < AMDS 100 

3000 FQRF = 1TO 120:POKE 1024+RND< I > .* 1000,46 

: NEXT 

3009 REM * SOUND SET UP 

30 10 30=54272 : P0KES0+24,15 

3020 FOKESG+5, i 5 : F'OKESO+6,0 

8040 POKESO+19,10 

8306 RO=l: REM ORIENTATION 

3320 CE =1024 +500:LY =12:LX =20 

33^0 S = 1024 : ST<8 > =3+47 i ST< 1 > =S+93 : ST (2 .) = 

S +71:ST< 3 > =S +5 19 :ST <4> =S +391 

3350 ST<5 >=S +973 5 ST<6 >=8 + 967:ST< 7 >=3+480 

: UP (8 > =41:UP < 1 > =40 : UP <2 > =39 

3360 UP <3 > = -1:UP <4 > = -41:UP(5)=-40:UP <6 > = 

-39:UP C 7 > = 1 

8370 FOR I = 1T08: SR < I>=CE-UP <I)sNEXT 
3380 CP<4>=77:CP<1>=66:CP<2>=78:CP<3>=67 
:FOR I=5T0S:CP <I)=CP <I-4 >:NEXT 
8500 TX =500:6=100:SC =0 
3550 LI=5:HIT=0:V =53248 

8560 ac*= " nmmmmummmmaai 

UIIUIIIU 

8570 DN*= 11 flflP lgteliqrra 

3600 PRINT"SBSC:0 LI:5 SH:100 TI 

: 500 " 

3999 GOTO2500 
9000 PR INT"U" 

9002 POKE53280,4:P0KE53281 ,6:PR INT" liillfl 
J3KICHE3H IRE CATS AND OTHER NASTIES!" 

9005 PRINT"&&g| PROGRAM DESIGN & SOFT 

WARE BY PAUL STANLEY 

9007 FOR I=0TO2000:NEXT 

9010 PRINT H JHB THEY PLACED ME IN SPACE 
- WITHOUT ENGINES, JUST A LASER." 
9020 PR INT"M 'SHOOT THE NASTIES', THEY 
SAID. I'D LIKE TO SEE THEM DO IT. 
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3030 PR INT"H TWIST LEFT WITH 1. RIGHT 
WITH 2, WEREMY INSTRUCTIONS. 

3040 PRINT" THEY TOLD ME TO BLAST 'EM W 
ITH 3, AND THAT IF I GOT INTO TROUBLE,"; 
3045 PRINT" I COULD PRESS 0. GOD ON 

LY KNOWS WHAT IT DOES.. 

3070 PR INT"MM. .PLEASE HELP ME...! I 

F YOU'RE PREPARED TO, PRESS ANYKEY.. 

3030 GETA$:IFA$=""THEN3080 

3100 P0KE5328 1 ,7 " FR I NT "LI" SP0KE53281 ,6 

3110 RESTOREsPRI NT"gFLEASE WAIT" 

3113 REM READ IN CHARACTER GEN 
3 120 P0KE56334,PEEK <56334 >AND254:POKE 1,P 
EEK <1)AND251 

3130 FORI=0TO255:FORJ =0TO7 
3140 POKE 14336+I*8+J ,PEEK <53248 + I*8+J > 
3150 NEXTJ,I:POKE 1,PEEKC1>0R4:P0KE56334 , 
FEEK<56334>ORl 

3 160 P0KE53272,<PEEK<53272>AND240>OR 14 
3163 REM NEW CHARACTERS - REVERSED LETTE 
RS 

3170 FORI=123T0143:FDRJ=0TO7:READD:POKE1 
4336+I*3+J,D:NEXTJ,I 

3175 FOR I = 12288T012350:READD:POKE I,D:NEX 
T:REM SPRITE DATA IN 
3180 RETURN 

3133 REM DATA FOR USER DEFINED NASTIES 
3130 DATA8,8,42,42,42,42,42,62,0,13,36,7 
2,146,164,72,48,0,0,252,128,255,128 
3200 DATA252,0,48,72,164,146,72,36,18,0, 
62,42,42,42,42,42,8,8,12,18,37,73,18 
32 10 DATA36,72,0,0,63,1 ,255,1 ,63,0,0,0,7 
2,36,18,73,37,18,12,231,135,165,24,24 
3220 DATA 165,135,231 ,0,0,1,3,71,127,21 ,2 
1,0,0,132,224,241 ,255,84,34,31,63 
3230 DATA 102,127,33,8,0,0,252,254,51 ,255 
,221,136,0,0,0,0 

3240 DATA48,72,164,63,2,3,0,0,12,18,37,3 
4,64,192,3,7,11,17,18,32,32,132,132,224 
3250 DATA20S,136,72,4,4,3,123,132,160,14 
7 

3260 DATA255,251,249,255,1,3,5,201,255,1 
31,153,255,127,36,96,43,56,23,15,3 
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9270 DATA254 ,6,6, 12,28,56,240,192 
59399 REM ** EXPLOSION ** 

S000G DATA0,16,0,0,214,0,2,170,128 

60001 DATA 13,125,96,19,171,144,53,109,83 

60002 DATA47,215,232,93,109,116,55,171,2 
16 

60003 DATA93,199,116,182,0,218,93,199,11 
6 

60004 DATA55,171,216,93,109,116,47,215,2 
32 

60005 DATA53,109,88,19,171,144,13,125,96 

60006 DATA2,170,128,0,214,0,0,16,0 



Horse Race 


Horse Race is a racing and betting game for any number of players in 
which six horses race across the screen. At the beginning of the game 
you can choose how many races there will be at the meeting. 

Before the start of each race the betting form is displayed, complete 
with the tipsters odds on each runner. The odds are a fairly accurate 
reflection of each horse’s potential. 


Starting with £200, each player may bet on one horse in each race and 
the winner is the player who ends up with the largest amount of money 
at the end of the meeting. If you want the rules to allow cheating then 
players who lose all their money may have the option of accepting the 
offer of an additional £50, otherwise they are out of the game. 

0 DEF FNA<F)=RND(TI) *F 

1 POKE 53280,5 : POKE 5328 1 , 5 : PR I NT "jJfcHfflr 
;:GOSUB 7000 s PR INT "d u ; 

2 PRINT " |OUI MANY RACES WOULD YOU LIKE T 
HERE TO BE AT THIS MEETING ?" 

3 INPUT RACES: IF RACES<=0 OR RACESOINTC 
RACES) THEN 2 

4 INPUT " |OW MANY PUNTERS ARE THERE";A: I 
F A < =0 OR A < >INT < A) THEN 4 

5 DIM B<A),E<A) ,F<6) ,H<6) ,P<A),X<6):FOR 
C=1 TO A 

6 LET P(C)=200 

7 NEXT C 

20 PRINT "jj"; :GOSUB 1999:PRINT "E"; 

100 FOR C =2 TO 12 STEP 2 

105 PRINT MID$(COLOUR$,C/2,1);TAB(0);LEF 
T$<DOWN$,C+l);C/2;" rf" 

106 PRINT LEFT$<D0WN*,C>;TAB<2>;" " 

107 NEXT C 

108 FOR X =1 TO 13:PR INT LEFT*<DOWN*,X+1) 
;TAB<32>; " |":NEXT X 

109 PRINT LEFT$<DOWN$, 14); "111 " :PRINT "Si 
";TAB <32);"O" 

110 LET A$="FINISH":FOR C=1 TO 6:PRINT L 
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EFT$(DOUM$, 14+0; TAB <3 1 XA$(C) : NEXT C 

115 FOR X = 2 TO 14 STEP 2SPRINT LEFT$(DOLI 
n*,X);tab<3); 

116 FOR Y=1 TO £9sPR INT "-";:NEXT Y:PRIN 
T:NEXT X 

117 FOR X=1 TO 13 STEP £:PRINT LEFT$ <DOW 
N$,X+1>;TAB(32);"HNEXT X 

1000 LET X =250sLET Y1=8:LET Y£=97:G0SUB 
10000:PRINT "3" ;TAB <14)"READY" 

1001 LET X =250 s LET Y1 = U:LET Y£=48:G0SUB 
10000 SPRINT "M" ;TAB<14)"STEADY" 

1002 LET X = £50 s LET Yl=15sLET Y£=£10:GOSU 
B 10000 :PRINT " §1" ; TAB < 14)" GO 

1003 LET X = £50 s LET Y1=£1:LET Y£ = 3l:G0SUB 
10000 SPRINT " 9" ;TAB(14)" 

1004 LET GE =0 s FOR C=1 TO 6sLET X<C)=4:NE 
XT C 

1005 FOR C=1 TO 6 

1006 LET X =.03 s LET Y1=3:LET Y£=35sG0SUB 

10000 s LET X=.03 s LET Y 1 = 1 sLET Y£=£05sGOSU 
B 10000 

1007 IF F < C ) = 1 AND FNA <1)<.8 THEN LET X< 
C)=X<C)+1 

1008 IF F (C) =2 AND FNA<1X.77 THEN LET X 
<C)=X<C)+1 

1009 IF F (C ) =4 AND FNA < IX. 74 THEN LET X 
<C)=X<C)+1 

1010 IF F <C)=8 AND FNA < 1 X . 7 1 THEN LET X 
<C)=X(C)+1 

10 11 IF F < C ) = 16 AND FNA < IX. 68 THEN LET 
X<C)=X<C)+1 

1012 IF F < C) =32 AND FNA(1X.65 THEN LET 
X<C)=X<C)+1 

1016 PRINT MID$(COLOUR$,C,1 ); LEFTS (DOWNS 
,0*2+1 );TAB<X(C)-1 ) " rf" 

1017 IF X(C)=32 THEN LET GE=1 

1018 LET X=.03:LET Y1=3:LET Y£=35:G0SUB 

10000:LET X =.03:LET Y1 = 1 s LET Y2=205:GOSU 
B 10000 

1019 NEXT C 

1020 IF GE =1 THEN 1050 
1040 GOTO 1005 

1050 GOSUB 11000 SPRINT 11 LfclB 11 ; s LET MANY = 0 
s FOR C=1 TO 6 
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1052 IF X (C )=32 THEN LET MANY=MANY +1:LET 
H(MANY)=C 

1053 NEXT C 

1054 IF MANY=1 THEN LET LI INNER =H < 1 ) : GOTO 
1090 

1055 PRINT LEFT*(D0WN*,21> ; " | HERE IS A P 
HOTO FINISH BETWEEN THESE HORSES:- " 

1056 PRINT LEFT*(D0WN*,23);TAB<15);H<1> ; 

" ";H<2>;" 

1057 IF MANY=3 THEN PRINT H<3>; 

1058 IF MANY=4 THEN PRINT " U ;H<4); 

1060 GOSUB 11000 

1067 LET ER =FNA(4 > + 1 

1070 LET WINNER=H <ER) 

1071 IF WINNER=0 THEN 1067 

1075 IF FNAC1X.33 THEN LET G*="A SHORT 
HEAD":GOTO 1079 

1076 IF FNAUX.4 THEN LET G*="A NECK" : G 
OTO 1079 

1077 LET G*="l LENGTH" 

1079 print "U"; 

1080 PRINT LEFT*(D0WN*,21);"THE WINNER I 
S";WINNER;"WHO WON BY" 

1081 PRINT LEFT*(DOWN*,22);G*:GOSUB 1100 
0 

1082 PRINT "J" ; 

1085 GOTO 1100 

1090 PRINT LEFT*(DOWN*,21); "THE WINNER I 
S";WINNER;"WHO WON BY" 

1091 PRINT LEFT*(DOWN*,22);INT(FNA(3>+2) 
;"LENGTHS.":GOSUB 11000 

1095 PRINT "J"; 

1100 FOR R =1 TO A 

1101 IF P(R)=0 THEN LET R=R+1:LET SET=l: 
IF R=A+1 THEN LET SET=0:GOTO 1130 

1102 IF SET=1 THEN LET SET=0:GOTO 1101 
1105 IF E(R)=WINNER THEN LET P(R>=P<R)+B 
(R)*F(WINNER>:GOTO 1115 

1110 LET P <R > =P(R)-B(R) 

1115 IF P(R ) < =0 THEN 8000 
1117 IF E(R)< >WINNER THEN 1125 
1120 PRINT "J";LEFT*(DOWN*, 1 1 ); " .ELL 

DONE PUNTER";R; " ! - 

112 1 PRINT " (OUR HORSE WON AND YOU NOW H 
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AVE £ " ; P (R > :GOSUB 11000:GOTO 1130 

1125 PRINT " J";LEFT*(DOWN*, 1 1 >; " 3 AD 

LUCK PUNTER";R; "! " 

1126 PRINT " |OUR HORSE DID NOT WIN AND Y 
OU NOW HAVE" 

1127 PRINT "£";P<R>:GOSUB 11000 

1130 NEXT R 
1150 GOTO 20 

1999 LET RACES=RACES-1:IF RACES=-1 THEN 
6000 

2000 FOR C=1 TO 6:LET F(C)=2t(INT < RND < TI 
>*6>):NEXT C 

2020 PRINT "| HE TIPSTERS RECKON THE BETT 
ING: u 

2025 FOR C=1 TO 6:PRINT MID*(COLOUR*,C,1 
>; "3" r LEFT*(D0WN*,2*C+1>;TAB (2 > ; “ 11”-.*“ " 

r 

2026 print c; "H ";F(C>; n ||i l u 

2027 IF F < C ) = 1 THEN PRINT MID*(COLOUR*,C 
,1>;LEFT*(DOWN*,2*C+1>;TAB(13); 

II 

2028 NEXT CSPRINT "B"; 

2029 FOR F=1 TO A 

2030 IF P (F )=0 THEN LET F =F +1:LET SET=l: 
IF F=A+1 THEN LET SET=0:GOTO 2050 

203 1 IF SET =1 THEN LET SET=0:GOTO 2030 

2032 PRINT LEFT*(DOWN*,15)TAB (1>;"“UNTER 
" ; F; " : " 

2033 PRINT " NOU HAVE £ " ; P <F > / "II- 

:PRINT "HOW MUCH WOULD YOU LIKE TO BET?" 

2034 INPUT B <F) s IF B(F)>P(F) THEN PRINT" 

□ IWUll^ai" ; : GOTO 2034 

2035 IF B(F)OINT(B(F)) THEN PRINT"D 

BUIHHHMM" ; : GOTO 2034 

2036 PRINT "m WHICH HORSE IS THIS TO BE 
PLACED?" 

2037 INPUT E (F ) 

2038 IF E(F ) < 1 OR E(F>>6 THEN PR INT"□ 

IHHUHHMUUT ; :GOTO 2037 

2039 PRINT LEFT*(DOWN*,18);" 

2040 PRINT LEFT*(SPACE*,36 > 

2041 PRINT " 

2042 NEXT F 

2050 PRINT "J";:RETURN 
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6000 PRINT "| |- \—K/| -s* /To —" 

6010 FOR F = 1 TO A 

6015 IF P <F > =0 THEN LET F =F + 1:SET =1: IF F 
=A+1 THEN SET=0 : GOTO 6040 

6016 IF SET=1 THEN SET=0«GOTO 6015 

6020 PRINT "HUNTER "F; "FINISHES WITH £" 
;p<F> 

6030 NEXT F 

6040 PRINT "iTRESS ANY KEY TO PLAY AGAIN 

II 

6050 FOR A=1 TO 10:GET A$:NEXT 
6060 GET A$s IF A$="" THEN 6060 
6070 RUN 
7000 PRINT 

7010 PRINT " |r_¥- 

7020 PRINT " - mm 

mm" 

7030 PRINT "4 GAMBLING GAME FOR THE WHOL 
E FAMILY" 

7040 PRINT "M5®S BY “AVID | UCK AND “|. *T 
ANLEY" 

7050 CQLOUR$= "3H5HkEl" 

7055 DOWN$= 

7056 SPACE$=" 

" 5 SPACE*=SPACE*+SPACE:S 
7060 SOUND=54272sFOR L=SOUNDTOSOUND+24:P 
OKEL ,0:NEXT L 

7070 POKE SOUND +5,0 s POKE SOUND+6,240sPOK 
E SOUND +24,15 
7080 GOSUB 11000 
7090 RETURN 

3000 PRINT " jjaaBK Kll UT TUT! PUNTER " ; R; " , 
YOU HAVE RUN OUT"SPRINT "OF MONEY." 

8005 PRINT:PRINT % MUST THEREFORE NOT L 
ET YOU BET ANY MORE." 

80 10 PRINT " IOWEVER,IF YOUR RULES ARE TO 
ALLOW CHEATING, IF YOU PRESS " 

3020 PRINT " WILL GIVE YOU"SPRINT "£50 M 
ORE. " 

802 1 PRINT "{“THERWISE PRESS AND WI 

LL CANCEL YOU FROM THE GAME" 

8022 GET A$ 

8030 IF A$="X" THEN LET P<R)=0:GOTO 8050 
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8040 IF A3>="C" THEN LET P(R>=50:GOTO 805 
0 

8045 GOTO 8082 

3050 PRINT "J";:GOTO 1130 

10000 POKE SOUND +1,Y1sPOKE SOUND,Y2 

10010 POKE SOUND +4,33 

10020 FOR J=1 TO X:NEXT J 

10030 POKE SOUND +4,32 

10040 RETURN 

11000 PRINT LEFT*<DOWN$,24>;" HIT 

A KEY TO CONTINUE" 

11010 FOR Q =1 TO 10:GET A$:NEXT 
11020 GET A$:IF A$="" THEN 11020 
11030 PRINT LEFT$<D0L!N$,24:>;LEFT*<SPACE$ 
,29 > ; 

11040 RETURN 



Xmas Eve 


Xmas Eve is a race against time for Santa, who must rush to deliver 
presents before the inhabitants of the houses awake. 

By manoeuvering Santa’s sleigh left and right you can catch the presents 
as they are thrown down from above by the elves. Presents can then be 
dropped down the chimneys by pressing the M key. Each time a present 
is successfully delivered, the inhabitants of the house awake and switch 
on the lights, which causes the snow on the roof to melt at a rate 
proportional to the activity in the house. The more work Santa does the 
more he has to hurry, in order to complete his work without being seen. 
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REM ************************* 
REM * X-MAS EVE * 

REM * FOR CBM-64 * 

REM * BY * 

REM * DAVE PONTING * 

REM ************************* 
P0KE52,43:P0KE56,48:CLR 
HS=0:DIMD$<40> 

A T£=" 


GOSUB9000:GOSUB8000 
SK = . 98 :-3=0 
A$="#";C$="% 
FORT=OTO40:D$ < T) = " 


GOSUB9300 

"s X = 26 
"sNEXTT 


25 G=2:H=INT(RND <1> *36)+2 

26 PRINT"aH"SPC<24) "H I SCORE"HS 

27 P — 0 

28 PR INT"MS PRESENTS"S 

30 KY=PEEK <197): 1FKY = 23THENX1 =X-2* <X<37) 
: A$ =:B$="'":C$="<" 

35 IFKY=12THENX1=X+2* <X >1>:A$="#":B$="$" 
:C$ ="X" 

40 IFX1<>XTHENPRINTLEFT$(AT$,11)SPC <X)" 

":POKEVO+18,129 

42 PRINTLEFT$(AT*,11)SPC<X1)CHR$(28)A$CH 
R£<5>B$CHR:*<28>C$:X=X1:P0KEV0+18,123 
50 IFP =0THENGQSUB200 

60 I FG =16THENIFPEEK <1664+H>=5STHEN1000 
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65 IFG=16THENPRINTLEFT$<AT$,G >SPC <H)" 

: G =2 : H = INT < RND(1>*36>+2 

70 IFP=1THENIFKY=80THENG=10:H=X+<A$= '> 
-3*<A$="#">:P=0 
30 IFRND <1>>SKTHENGOSUB300 
30 GOTO30 

£■00 POKE VO + 1 , 30 -G *■ POKE VO +4,33 

205 G=G+l:PRINTLEFT^(AT^,G-l)SPC<H) , ‘ " f 

210 PR INTLEFT$<AT$,G)SPC(H) M )"; 

220 IFG =11THENIFH = X +20RH =X +1ORH =XTHENP=1 

230 P0KEV0+4,0 

243 RETURN 

330 REM SNOW MELTS 

305 G =INT < RND(1> *9 > + 1:E =INT < RND t1> *4) 

310 PRINTLEFT$<AT$,20)SPC<Q*4-E+1) H3 ■" 
320 D$(Q*4-E)="P" 

330 IFD$<G*4“3>="P "ANDD$<Q*4-2 ) = " P "ANDD^ 

< Q *4-1) = " P "ANDD$<Q *4) = " P"THEN2000 
349 RETURN 

1000 REM DOWN THE CHIMNEY 

1005 PRINTLEFT$<AT$,G>SPC(H>" "; 

1010 IFPEEK<1364+H)=169THEN25 

1015 S=S+1:POKEVO+3,10 +SiFORTT=1TO50•POK 

EVO+11,33:NEXTTTsPOKEVO+l1,32 

1020 PRINTLEFT*<AT*,22)SPC<H) H aa>H" 

1025 FORF =3T037STEP4: IFPEEK <1864+F) = 169T 
HENNEXTF:SK=SK-.02:GOSUB9300:GOTO20 
1030 G0T025 

2000 REM IS THERE A 'PRESENT' PRESENT 
20 10 IFPEEK <1864+H >< >169THEN6000 
2020 GOTO30 

2499 RETURN 

6000 REM END OF GAME 

6002 FORTT =10TO2STEP-.5 

6005 PRINTLEFT$<AT$,TT>SPC<X1>CHR*<28>A$ 
CHR*<5)B$CHR$(28:>C$:P0KEV0 +18,128 
6007 PRINTLEFT$<AT$,TT+1>SPC<X1>" 

6010 NEXTTT 

6015 PRINTLEFT$<AT$,2)SPC <X1)" 

6020 IFS >HSTHENHS=S 

6025 PRINTLEFT*<AT*,G)SPC<H)" " 9 

6030 PR I NTLEFT$ < AT$ ,22 ) SPC <Q *4 - 1 ) " Si - " 

6035 PRINTLEFT^CAT$,10>SPC<15)"aSPAME OV 

ER" 
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6040 PRINTSPC<6)CHR$<8) "HHMM^RESS ANY K 
EY TO PLAY AGAINH" 

6060 POKE 198,0sFORT=1T01000:NEXTT:POKE 19 

8,0 

6070 XX = -1:GOSUB11042:GOSUB9300:GOTO 15 
8000 REM -WUCTIONS 

8010 PRINT" , JgM C HR ISTMAS 

EVE" 

8020 PR INT"HIT IS APPROACHING MIDNIGHT O 
N CHRISTMAS EVE AND SANTA IS LATE."; 

8030 PRINT"YOU PLAY THE PART OF SANTA AN 
D YOU MUST DELIVER PRESENTS"; 

8040 PRINT" WHICH ARE THROWN DOWN TO YO 
U BY YOUR ELVES." 

8050 PR INT"IH HAVING CAUGHT A PRESENT < 

BY FLYING DIRECTLY BELOW IT > " ; 

8060 PRINT" YOU MUST MOVE OVER A CHIMNE 
Y AND DROP A PRESENT DOWN IT. SI" 

8070 PRINT" WHEN A PRESENT HAS BEEN DROP 
PED DOWN A CHIMNEY THE FAMILY IN THAT"; 
S080 PRINT" HOUSE START TO OPEN UP THE P 
RESENT IMMEDIATELY AND THEY WILL "; 

8090 PR INT"TURN THE LIGHT ON." 

8095 PR INT"H DROPPING A PRESENT DOWN A C 
HIMNEY OF A LIT HOUSE WILL NOT COUNT." 
8100 PR INT"SKI 3 PRESS ANY KEY TO CON 

TINUE " 

8105 GOSUB 1 1000 

8110 PRINT" LMDfl CHRISTMAS 

EVE" 

8 120 PR I NT "|9 BENEATH EACH ROOF YOU WILL 
SEE A PATCH OF SNOW "; 

8130 PR I NT"WHICH SLOWLY MELTS AT A RATE 
IN PROPORTION TO THE "; 

8140 PR INT"ACT IV ITY IN THE HOUSE." 

8 150 PR I NT "18 AS THE PRESENTS MUST BE P 
LACED DOWN THE CHIMNEYS BEFORE "; 

8160 PR INT"ANYONE SEES YOU,IF ALL THE 
SNOW HAS MELTED UNDER A ROOF " ; 

8170 PRINT" WITHOUT A PRESENT BEING DRO 
PPED BEFORE THIS OCCURS IT WILL "; 

8180 PRINT"INDICATE THAT THE INHABITANT- 
S ARE AWAKE AND YOU WILL HAVE "; 

8190 PRINT" TO RETURN IMMEDIATELY." 
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8200 PRINT"EIS Z.LEF 

T 11 

82 10 PRINT" X.RIGHT 

II 

8220 PRINT" SPACE.DROP 

PRESENT" 


8230 PR INT"US 3 PRESS ANY KEY TO START 

THE GAME ■" 

8800 GOSUB11040 

8850 POKE53272,(PEEK(53272 >AND240) + 12 

8999 RETURN 

9000 REM DEFINE CHARACTERS 
9005 P0KE53265,PEEK<53265>0R64 
9010 P0KE56334,PEEK <56334>AND254 
9020 POKE 1,PEEK<1>AND251 

9825 FOR I=0TO511:POKE 12288+I,PEEK<53248+ 
I>:NEXTI 

9030 FOR I=0TO7:POKE 12288+8*32+I,0:NEXT 
9035 FORI=0TO7:POKE 12288+8*31 + 1,255:NEXT 
9048 FOR I=0TO8 * 11-1:READA:POKE 12568+I,A: 
NEXT 

9050 POKE 1,PEEK<1>0R4:P0KE56334,PEEK <563 

34 )OR1 

9070 RETURN 

9300 PR INT"ki3" :POKE53280,0 : P0KE5328 1 ,0 
9305 P0KE53282,0:P0KE53283,2:P0KE53284,0 
9307 F0RX=2T034STEP4 

9310 PRINTLEFT$<AT$,17>SPC<X+1>": " 

9320 PRINTLEFT$<AT$,18)SPC<X+1)"»*+" 

9338 PR INTLEFT$<AT$, 19)SPC<X) " *+-*-+" 

9340 PRINTLEFT$<AT$,20>SPC<X>"MS,,, 

9350 PRINTLEFT$<AT*,21 >SPC<X) " 

9360 PR INTLEFT$<AT$,22 >SPC <X ) 

9370 PR INTLEFT$<AT$,23>SPC<X)"++++" 

9330 PR INTLEFT* < AT$, 24 > SPC < X ) " <-+-+-+-" 

9390 NEXTX 
9499 RETURN 

10880 DATA0,0,1,0,0,0,0,0 

10010 DATA 132,64,160,224,127,126,99,82 

10020 DATA8,28,8,124,156,72,63,128 

10030 DATA 16,56,16,62,56,18,252,1 

10040 DATA3,2,5,7,254,126,198,74 

10050 DATA8,0,128,0,0,0,0,0 

10060 DATA0,0,0,54,54,0,54,54 
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10070 DATA0,1,3,7,15,31,63,127 
100S0 DATA0,128,192,224,240,248,252,254 
10030 DATA255,220,73,65,64,0,0,0 
10099 DATA24,60,36,60,24,126,255,255 
11000 REM TUNE 

1 1005 V0=54272 : Ull =32 : POKEVQ+5,13:P0KEV0+ 
6,123 s POKEVO+24,15 

1 1007 P0KEV0+12,9:P0KEV0+13,246s UI2 =16 
11009 POKEVO+19,9:POKEVO+20,129:POKEVO+ 1 
5,20 

110 10 FORT=1T08iREADL <T),H<T>:NEXTT 
11020 FORT=1T07:READN(T>:NEXTT 
1 1030 V1=PEEK <63):V2=PEEK<64):V3=PEEK<65 
>:V4=PEEK<66> 

11040 READXX,YY 

11042 IFXX=-1THENP0KE63,V1: P0KE64,V2:POK 
E65,V3 • P0KE66, V4:GOTO 11040 
1 1045 POKEVO ,H <XX)sPOKEVO+1,LCXX) 

11047 POKEVO +7,H <XX > +22sPOKEVO +8,L(XX) 

1 1050 POKEVO+4 ,UI1 + 1 SPOKEVO+1 1 ,UJ2+1 
11052 FORTT =1T025 : NEXTTT 
1 1055 POKEVO+4 ,UJ1 s POKEVO+ 1 1 ,W2 
11060 F0RTT=lT0N<YY>/2:NEXTTT 
11070 GETA*:IFA*<>“"THENRETURN 
11030 GOTO 11040 

12010 DATA 19,63,21,154,22,227,25,177,28 
,214,32,94,34,75,33,126 

12020 DATA 100,137,225,350,475,725,825 
12030 DATA6,1,6,1,6,3,6,1,6,1,6,3,6,1,8, 
1 ,4,1 ,5,1 ,6,5 

12040 DATA7,1,7,1,7,1,7,1,7,1,6,1,6,1,6, 

1.6.1.5.1.5.1.6.1.5.3.8.3 

12050 DATA6,1,6,1,6,3,6,1,6,1,6,3,6,1,8, 
1 ,4,1 ,5,1 ,6,5 

12060 DATA7,1,7,1,7,1,7,1,7,1,6,1,6,1,6, 

1.8.1.8.1.7.1.5.1.4.3.4.3 

12070 DATA4,1,5,1,4,3,2,3,7,3,5,3,4,7 
12030 DATA4,1,5,1,4,1,5,1,4,3,7,3,6,7 
12090 DATA3,1,4,1,3,3,1,3,6,3,5,3,4,7 
12095 DATA4,1,5,1,4,1,5,1,4,3,5,3,2,7 
12100 DATA4,1,5,1,4,3,2,3,7,3,5,3,4,7 
12110 DATA4,1,5,1,4,1,5,1,4,3,7,3,6,7 
12120 DATA3,1,4,1,3,3,1,3,6,3,5,3,4,7 
12130 DATA4,1,5,1,4,1,5,1,4,3,8,3,7,7 
12140 DATA-1,-1,-1 
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In Buzzy Bee you control a small bird which pecks away at the stems of a 
row of plants which are gradually growing towards the top of the screen. 
If any of the plants should reach the top a bee will drop down and take 
the nectar and you have lost the game. 

The bird can be moved from left to right by using the < and > keys and 
the space bar will cause it to peck, although none of the stems can be 
pecked twice in succession. 


10 REM **BUZZY BEE BY PAUL ROPER 
20 REM * * IDEA BY PAUL STANLEY 
30 GOSUB1000:REM INSTRUCTIONS 
40 GOSUB2000:REM SOUND & GRAPHICS 
50 DATA 1947 ,1952,1958,1962 ,1968,1974,19 
80 

55 FORA =1T025:PR INT"U 

“;:NEXT 

60 FORT=1T07:READP <T):POKEP<T>,42:NEXT 
6 1 DATA »• , , "_ 0 -" , '• 

Jn , "-O-” , " ^CK - , "*" 

62 FORA=1T08:READ B$<A):NEXT 
66 F0RA=56256T056295 s POKEA,1:NEXT 
70 TI$="000000":M=2000:B=1:V=1:DL=.45:FT 
=0:DD =0 

S0 GOSUB3000:REM MOVE BEE 
90 GOSUB4000:FT=1:REM REM MOVE AXEMAN 
95 GOSUB6000:REM GROW PLANTS 

100 IF DD< >1THEN80 

101 P0KE54273,50:FORA=1TO20:P0KE54276,65 
: FORF = 1T03 : PR I NT "i3"TAB (B )B$<F ) 

102 NEXT:POKE54276,64:NEXT:P0KE54273,10 
110 PR I NT" SSagMSi 11 : M$= "GAME OVER GOSUB 
5000 

120 M$="M£THE BEE HAS FINALLY GOT HIS NE 
CTAR":GOSUB5000 

130 M$="YOU HELD OUT FOR "+STR$<INT<TI/6 
0)>+" SECONDS."SGOSUB5000 

135 FORA =1 TO 10:GETA$:NEXT:REM EMPTY BUFF 
ER 
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140 PRINT" MMMF RESS SPACE TO PLAY AGAIN" 
150 CETA$:IFA$<>" "THEN150 

160 RUN50 

1000 PR I NT "LH BU22Y - BEE MW " 
1010 PR I NT "EBA GIANT BEE LIKES NECTAR FRO 
M GIANT" 

1020 PR INT"FLOWERS , BUT YOU HAVE TO STOP 
IT BECAUSE" 

1030 PR INT"YOU LIKE NECTAR AS WELL.CHOP 
CHUNKS OUT" 

1040 PR INT"OF THE STALKS WITH THE SPACEB 
AR AND" 

1050 PR INT"USE *>' & '<■ TO MOVE RIGHT A 
ND LEFT" 

1060 PR INT"BUT NOTE THAT YOU MUST SUCCES 
IVE PIECES" 

1070 PR INT"OUT OF DIFFERENT STALKS.HOW L 
ONG CAN" 

1080 PR I NT"YOU KEEP THE FLOWERS TOO LOW 
FOR HIM TO" 

1090 PR INT"GET AT ?":RETURN 
P000 REM UDGS 

80 10 P0KE56334,PEEK<56334 >AND254:POKE 1,P 
EEK <1)AND251 

2020 FORA =0TO703!POKE12288+A, PEEK<53243 + 
A >:NEXT 

2030 POKE 1 ,PEEK <1>0R4:P0KE56334,PEEK <563 
34 > OR 1 

2040 READA$:IFA$<>"*"THEN2040 

2045 P0KE53272,(PEEK <53272)AND240 > + 12 

2050 READCR*IFCR*-1THEN2500 

2060 FORA =0TO7:READCD:POKE 12288+CR*8+A,C 

D s NEXT s GOTO2050 

2062 DATA 102,49,30,216,59,30,24,48,48 

2063 DATA42,195,189,66,90,90,66,189,195 

2064 DATA35,60,60,24,255,24,24,36,66 
2070 DATA -1 

2500 REM SET UP SOUND 

2510 FORA =54272 TO 54300:POKEA,0:NEXT 
2520 P0KE54296,15 

2530 P0KE54272,10:P0KE54273,10:POKE54275 
, 15 

2540 P0KE54277,12 

2550 P0KE54279,30:POKE54280,30:P0KE54284 
,8 
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2555 FORT =1TO10:GETA$:NEXT 

2560 PRINT" JMW PRESS SPACE TO START" 

2570 GETA$: IFA$< >" "THEN2570 

2575 RESTORE 

25S0 RETURN 

3000 REM MOVE BEE 

3005 PR I NT" SBI" TAB <B) " 

3006 P0KE54276,64: P0KE54276,65 

3007 F=F+1: IFF =9THENF =1 

3010 B =B +V s IFB = 1 OR B=37 THENV=-V 
3020 PRINT "Sgl"TAB<B)B3><F> 

3030 IFPEEKC1065+B > < >42THENRETURN 
3040 DD=l:RETURN 
4000 REM MOVE AXEMAN 

4010 K =PEEK <197 >: IFK =64ANDFTTHENRETURN 
4012 IFK = 60THEN4600 
4015 P0KEM,32 

4020 IFK =47THENM=M-1: IFM<1985THENM=1985 
4030 IFK=44THENM=M+1:IFM>2021THENM=2021 
4040 POKEM r 35 
4050 RETURN 

4600 IFPEEK (M-40X > 102THENRETURN 
4610 RESTORE:PN=0 

4615 POKE54233,128:P0KE54283,129 
4620 FORA =1T07:READE: IFE=M-40THENPN=A 

4630 NEXT:IFPN=LMTHENRETURN 

4631 LM=PN 

4632 POKEP <PN>,32:P<PN)=P<PN>+40 

4640 POKEPCPN), 42:P0KE54272+P<PN),1:RETU 
RN 

5000 FORA=lTOLEN(M$>:PRINTMID$(M$ / A,1);: 

FORT =1TO30:NEXTT,A:PR INT:RETURN 

6000 REM GROW PLANTS 

60 10 IF RMDdXDL THENRETURN 

6026 PN=INT<7*RND <1) + l):POKEP<PN),102:PO 

KE54272+P <PN>,5 

6025 IF P < PN) < 1 104THENPOKEP < PN ) ,42: RETUR 
N 

6030 P < PN:> =P <PN>-40: POKEP <PN> ,42:P0KE542 
72+P(PN>,1 
6040 RETURN 
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After all this intergalactic warfare, you’ll find it refreshing to return to 
Earth and struggle to cope with a fleet of helicopters whose pilots are 
committed to wiping out your fair city. Thankfully you’re in control of 
the metropolitan laser tower, and it’s up to you to shoot down the bombs 
before they hit the city. You’ll get points for every bomb you hit, and 
whilst you can wipe out a chopper if you feel so inclined, you will not 
add to your tally by so doing. You move your laser sight with Q, A, M 
and N, and the game is over once one of the bombs finds a clear path to 
the ground or the laser tower itself is destroyed. 

0 HS=0:POKE650,128:REM AUTO REPEAT ON AL 
L KEYS. 

10 IFPEEK <56)< MSTHENGOSUB9000:GOTO20 
15 GOSUB3530 

20 dimsdx<£4,£i ) :sL^=''aeissaafiKcaagiaQssssaa 
m mmm : clt= - srayazjzr 

30 BD%=0:SC =0:HE = 0:EN% = 0:GOSUB£0000 
40 PGKE53£80,0:P0KE532S1,0 

50 PR I NT 11 S DO YOU WANT INSTRU 

CTIONS? <Y/N> ■ " 

60 WAIT 198,- 15 : GETAT: I FAT = " Y " THENGQT063 

61 I FAT-"N"THEN100 
6£ G0T060 

63 GOSUB 10000 

100 GOSUB1000:GOSUB1150:GOSUB2270 
1 10 IFPEEK < 198 > > 1 THENF'QKE 198,1 
1 1 1 DX = 0 : DY=0 : GETAT: G0SUB2 1600 
1 £0 IFAT = " 0 :: THENDY= - 1 
130 IFAT- r A"ORAT=”*"THENDY=1 
140 I FAT-"N"ORAT="/"THENDX = -1 
1 30 I FAT= " M"ORAT= "\ ,, THENDX= 1 
160 IFAT-" "ORAT=" "THENGOSUB1700 

170 303UB2 1000:GOSUB1200:GOSUB1300 
183 GOSUB£ 1000: I FBDX-3ANDRND <1> >.S5THENB 
0‘<= 1 : BH=HX : BY=HY + £ 

190 IFBDM=1THENGOSUB1400:IFENX=1THEN1100 
0 

200 PRINTLEFTT<SLT,18 >;SPC(19):PR 1 NT"jUQ " 
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998 G0SUB2 1000 : GOSUB 1600 

999 GOTO 110 

1000 REM * * * BUILD TO LIN 
1010 PRINT”J":FORN=0TO39 
1020 H =INT <RND <1)*5 )+20 

1030 PRINTLEFT*<SL$,H>;TAB<N:>;:PRINTMID$ 
'CL^,RND<1>*7+1,1>; 

1040 F0RX=HT024 

1050 PRINTCHR$< 165) "IIS"; : NEXT: NEXT 

1100 REM *** BUILD LASER TOWER 

1110 PRINTLEFT$(SL$, 18>;TAB< 19); "^©218"; 

1 120 FORX = 1TOS : F'R I NT " X6H" / : NEXT 
1130 RETURN 

1150 REM *** INITIALISE SIGHT POSITION 

1160 3X=19:SY=10 

1200 REM *** PRINT SIGHT 

1202 PRINTLEFT*<SL*,SY+1>;SPC<SX>;" "; 

1210 SY = SY+DY:SX = SX + DX 

1211 IFSX >39THENSX =0 
12 12 IFSX < 0THENSX=39 

1213 IFSY<£THENSY=17 

1214 IFSY >17THENSY=2 

1230 PRINTLEFTS'SLSvSY+l >;SPC<SX); ”3+" :R 
ETURN 

1300 REM *** MOVE HELICOPTER 

1310 PRINTLEFT$<SL$,HY+1>;SPC<HX-1>; " 

mmu 

1320 HX =HX +INT < RND <1 )*2> + 1 : IFHX >37THENHX 
= 1 

1330 HY=HY+INT<RND<1>*3)-1s IFHY>15THENHY 
= 15 

1340 IFHY< £THENHY=2 

1350 PR INTLEFT$(SL$,HY+1);SPC<HX>; HI 

Ifll"; : FORQQ = 1T03 

1351 PRINTCHR$<160+QQ);:NEXT 
1360 RETURN 

1400 REM *** BOMB ON WAY ! 

1410 PRINTLEFT*<SL$,BY+1>;SPC(BX>;" " 

1420 P=PEEK<1064+BX+ <40*BY>>: IFP< >32ANDP 
< >43THEN1450 

1430 BY = BY +1 : IFBY>23THENENX=1:RETURN 

1440 PRINTLEFT$<SL$,BY+1 >;SPC<BX>; "SVCH 
R$<164 >; 

1441 P0KE54284,241:P0KE54283,17:P0KE542S 
O , <30-BY>*8:RETURN 
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1450 REM *** BOMB HIT SOMETHING ! 

1451 P0KE54296,0:P0KE54283,0 
1460 IFP = 81THENENX=1 

1470 FORM=15TO0STEP-1:PRINTLEFT$<SL*,BY+ 
2>;SPC<BX>;CHR$<164); 

1480 PRINTLEFT^(SL^,BY+2);SPC<BX>; " " ; 

1481 P0KE54296,M: P0KE54284 , 15:POKE54280 , 
40:P0KE54279,200:P0KE54283, 129 :NEXT 
1490 BD/<=0 :POKE54283,0s RETURN 

1600 REM *** UPDATE SCORE LINE 
1610 PRINT"33 SCORE =";SC;" HELECOPTERS 
DESTROYED =";HE 
1620 RETURN 

1700 Y=18-SY:X =SX-19 

1701 FORV=15TO0STEP-1.5 

1702 PQKE54296,V: POKE54284,15:POKE54280 , 
40:P0KE54279,200:P0KE54283,129:NEXT 

1703 P0KE54283,0 
1710 IFX =0THEN1800 

1720 M=Y/X : FORY = 16T03STEP - 1 :HY‘/.=Y 
1730 HX!X = 19 + < ( 18-HY30/M) :GOSUB2000 
1735 IFHX*< 10RHXX>39THENY=2 : GOTO 1760 
1740 PRINTLEFT*<SL*,HY%+1>;SPC<HXX>;"□*" 
/ 

1750 PRINTLEFT$<SL$,HYX+1 > ; SPC < HXY. > ; " " ; 

1760 NEXT:POKE 198,0:RETURN 

1800 HXV£= 19 : FORY = 16T03STEP - 1 : HYX.=Y: GOSUB 
2000:GOTO 1740 

2000 REM *** HIT SOMETHING? 

2010 XY=PEEK <1024+HXX+ <40*HY/O ) 

2020 IFXY=320RXY=43THENRETURN 
2030 IFXY=970RXY=930RXY=99THEN2100 
2040 FORV=10TO1STEP-1:PRINTLEFT$<SL$,BY+ 
1 ); SPC < BX > ; " *IS " ; : GOSUB22000 : NEXT 
2070 SC=SC+10:GOSUB1600:BDX=0:RETURN 

2100 REM *** HIT HELECOPTER 

2101 POKES4276,0:P0KE54277,0:P0KE54272,0 

2102 P0KE54276,33 

2120 PRINTLEFT$(SL$,HY+1XSPCCHX-l) V " 

N 

2130 P=1023+HX+(40*<HY+2)): IFPEEK<P)< >32 
ANDPEEK <P)< >100ANDPEEK(P > < >43THEN2200 
213 1 IFPEEK <P+1X >32ANDPEEK<P + 1X >100AND 
PEEK < P +1X >43THEN2200 
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2 132 IFFEEK<P+2>< >32ANDPEEK<P+2><>100AND 
PEEK <P +2)<>43THEN2200 

2140 HY = HY +1:PRINTLEFT*<SL$,HY+1>;SPC<HX 
> ; 11 a 11 

2150 PR INTSPC < HX - 1 > ? "isT" ; : P0KE54277 ,255 
:P0KE54273,<30-HY> *8:G0T02120 
2200 HE =HE + 1 

2210 FORV =15TO0STEP-.5:GOSUB22000 
2220 PRINTLEFT*<SL$,HY+2);SPC<HX-1>; "(i** 
* " 

2225 PRINTLEFT$<SL$,HY+2>;SPC<HX-1 ) ; "GI\| 

/» 

2230 NEXT:PR INTLEFT$(SL$,HY + 2);SPC<HX-1) 
; " " :P0KE54283,0 

2240 PRINTLEFT*<SL$,HY+3);SPC<HX-1>;" 

:GOSUB1600 

2270 HX =0:HY=INT<RND(1)* 15)+2:GOTO 1320 
9000 PR I NT 11 LMHHHHgMBflBMa SETTING UP GRAP 
HICS - PLEASE WAIT. ■" 

3001 P0KE56,48:P0KE52,48:POKE 1,55 

9002 GOSUB9500 

9003 Q=0:RESTORE 

3004 READA:IFA=-1THENRETURN 

3005 POKE13064+Q, A:Q=Q+1:GOTO9004 

3010 DATA0,192,112,63,15,3,0,0,1,31,60,2 
54,255,255,8,127 

30 11 DATA 128,240,136,108,252,243,34,252, 
60,60,24,60,60,60,60,24 

9012 DATA255,153,255,153,255,153,255,153 

3499 DATA- 1 

3500 CS = 12288 

3510 P0KE56334,PEEK <56334>AND254 
9520 POKE 1,PEEK<1)ANDES 1 
9530 FOR I=CSTOCS+2047 
9540 POKE I,PEEK < 53248 + I -CS) 

9550 NEXTI 

9560 POKE 1 ,PEEK< 1 >OR4 

9570 P0KE56334,PEEK<56334>ORl 

9580 P0KE53272 , <F'EEK <53272 > AND240 > + 12 

9590 RETURN 

10000 REM INSTRUCTIONS 

10010 PR INT"H E L I - B O M B E 
R S ! 

10020 PRINT" YOUR CITY IS BEING ATTACK 
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ED BY HELICOPTER BOMBERS. 

10030 PR I NT"WHEN A BOMB HAS A CLEAR PATH 
THROUGH TO THE GROUND, OR WHEN YOUR"; 
10040 PR I NT"LASER TOWER IS DESTROYED, T 
HE GAME ENDS.H" 

10050 PR INT"MOVE YOUR LASER SIGHT USING 
' Q' TO GO UP'A' TO GO DOWN, 'M' TO GO"; 
10060 PRINT" RIGHT AND 'N' TO GO LEFT. T 
0 FIRE YOUR LASER, PRESS" 

10065 PR INT"THE SPACE BAR." 

10070 PR INT"THE OBJECT OF THE GAME IS TO 
PROTECT THECITY BY SHOOTING DOWN THE"; 
10080 PRINT" BOMBS BEFORE THEY REACH TH 
E BUILDINGS." 

10090 PRINT3 PRESS ANY KEY TO S 
TART. a n 

10091 WAIT198,51:GETA$:RETURN 
11000 REM END OF GAME... 

11010 PRINT" LMM a G A M E 0 V 

e r ! mm " 

11080 PRINT" A BOMB HAS PENETRATED YOU 
R DEFENSES.HS" 

11030 PR I NT"YOU DESTROYED "HE" HELICOPTE 
RS, AND9" 

11040 PRINT"SCORED "SC" POINTS.MM" 

1 1050 IFSC < =HSTHEN11030 

11060 PRINT" a THAT'S A NEW HIGH SC 

ORE ! mmi " 

11070 PRINT"THE OLD HIGH SCORE WAS "HS" 
POINTS. ":HS =SC 

11080 PRINTSL*" a DO YOU WANT TO PLAY 
AGAIN? <Y/N>"; 

1 1090 WAIT 198,15:GETA$: IFA$="N"THENP0KE5 
4896,0:END 

1 1095 IFA$< >"Y"THEN11090 
11096 GOTO30 
80000 FORM=1TO 10 
80005 PR INT 

80003 F0RN=1T08:PRINTMID*<CL$,N,1>;"H 
9HEL I - BOMBERS! ! " 

80010 NEXT:POKE53880,RND<1> *855:P0KE538S 
1,RND(1>*255:NEXT 
80080 RETURN 

81000 REM HELECOPTER SOUND 
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1001 P0KE54276,0:P0KE54277,0:P0KE54272, 

21002 P0KE54276,129 

2 10 10 P0KE54296,15:P0KE54277,64 

2 1020 P0KE54273 , 10:P0KE54272,255:P0KE542 

76,33:RETURN 

22000 POKE54283,0 

2200 1 P0KE54296 , V •’ P0KE542S4,15:POKE542S0 
,40:P0KE54279,200:P0KE54283,129 
22002 RETURN 



Sheepdog Trials 


There’s no getting away from it, sheep are dumb. The pen in the middle 
of the screen is large enough for them all to be housed in comfort, but 
the wretched creatures are demonstrating an unpalatable degree of 
reticence. Your trusty collie is doing the best he can, but he requires 
firm handling from you. As in lifetime is running out, and this 
unusually difficult game will defeat you unless you manage to get all the 
sheep into the pen before the last second ticks away. 


1 REM********************************* 

2 REM* * 

3 REM* CONVERTED BY DAVE HODGKINSON * 

4 REM* FROM A PROGRAM BY * 

5 REM* ROBERT ERSKINE * 

6 REM* * 

7 REM********************************* 
10 GOSUB6000 


20 GOSUB5000 
30 GOTO 130 

50 PRINT" r-P 

RINT 

"; :PR INT:NEXTI 

52 PR I NT 11 felUfillllll L - J " 

55 PR I NT " 

4444444444.fr" } 

56 FOR I = 1TO20SPRINT" 


LwJJJJJJJJ JJJ J 


";:NEXTI 


II J J J J J J.J .J J } J J J j 


57 PR I NT " 

; 

61 RETURN 

100 P=PEEK<197): IFP = 60THENRETURN 
110 SYSPR r OX, DY," "S22=TL+DX+40*DY 

120 IFP=47THENIFPEEK(Z2-40)=32THENDY=DY- 
1 

130 IFP =55THENIFPEEK<ZZ + 1>=32THENDX=DX+1 
: DD = 1 

140 IFP=12THENIFPEEK <ZZ-1)=32THENDX=DX-1 


: DD =2 
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150 IFP=20THENIFPEEK (22 +40>=3£THENDY=DY+ 
1 

160 SYSPR, DX,DY,CHR$(90+DD>:RETURN 

180 T =1 

181 GOSUB50 s SC =0 

186 S(1,1>=3:S<1,2>=15:S(£,1> =3 : S (2 ,£ > = 1 
6iS(3,1>=4SS<3,2)=15:S<4,1)*4SS<4,2>=16 
180 SYSPR,0,23,"PLAYER"; T; 

200 FORZ = 1T04 s SX = S (2, 1>:SY=S(Z,£>:GOSUBl 
00: IFP =60THEN3000 

£30 IFRND (TI><.25THENSX=SX+SGN(RND<TI>-. 
5 ') : SY=SY+SGN(RND (TI ) - . 5 > 

£90 E=(ABS (DX-S <2, 1 > >>/10:F=(ABS(DY-S(2, 
2> >)/10:G=S(Z,1)-DX:H=S (2,£>-DY 
300 Q = RND(TI): IFQ >EANDQ>FTHENSX=S(Z, 1) +S 
GN( G):SY=S(2,£)+SGN(H> 

340 RR=-£*(H>0)-(H<0>-<RND (TI>*£ + 1)*(H=0 
) 

350 SYSPR,S(2,1),S(Z,£>," " 

360 IFPEEK < TL +40*SY+SX)=3£THENS ( 2,1> =SX : 
S (2 , £ ) =SY 

380 SYSPR , S (2,1),S(2,2),CHR$(9£+RR>:NEXT 
2 

510 SC =SC + 1 : SYSPR ,20,£3," SCORE ISBII" ; 

150-sc; "GQODDQ"; : IFSC= 150THEN3000 
520 GOTO200 

530 T=T+1:IFT=<ATHEN181 

2000 PRINT"J" 

£005 SYSPR,12,0,"RESULTS" 

2010 PR INT:PR INT:FORX =1TOA 
£020 PRINTTABO); "PLAYER " X , P (X > s PR 1 NT 
2030 NEXT 
2035 GOSUB4000 

£040 PR INT"PRESS ANYKEY TO RESTART" 

£045 FOR 1 = 1TO 11:GETA$:NEXT 
£050 GETA$:IFA$=""THENE050 
£060 GOSUB6320:GOTO 180 
3000 SYSPR,15,10,"-" 

3002 P (T> = 150-SC 

3005 CH =0 

3010 FORXX=1T04 

3020 IFS (XX,1)>10ANDSCXX,1)<£0ANDS(XX,£> 
>5ANDS(XX,2)<10THENCH =CH + 1 
3030 NEXTXX 
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3040 IFCH< 4THENSYSPR,15,15,"YOU FAILED T 
O PEN THE ":SYSPR,15,17,"SHEEP. SCORE 0 " 

3041 IFCH<4THENP(T) =0:CH=0:GOSUB4000:GOT 
0530 

3050 SYSPR,5,5, "YOUR SCORE LIAS " P < T ) : GOSU 
B4000 s GOTO530 

4000 FORQ=1 TO 1000 s NEXTQ:RETURN 
5000 PR INT"iJ" 

5010 SYSPR,12,3,"SHEEPDOG TRIALS" 

5020 SYSPR,4,6,"THE OBJECT IS TO HERD TH 
E SHEEP" 

5030 SYSPR,3,8,"INTO THE PEN, WITHIN A F 
IXED TIME." 

5040 PR INT" gm ' Z'-LEFT 'C'-DOWN ','-UP 
-RIGHT" 

5078 SYSPR, 12,4, -- -- 

5079 GETA$:IFA$=""THEN5079 

5080 RETURN 

6000 PR=12*4 096 s TL=50176:PRINTCHR$<142) 

6010 F0RI=PRT0PR+25:READA$:C=LEN(A^>:A=A 

SC<A$)-43:B=ASC<RIGHT$<A$,1))-48 

6020 N=B+7*<B>9)-<C=2>*<16*<A+7*<A>9) ) ): 

POKE I,N:NEXT 

6025 PRINT"HHSHO.K. 1 " 

6030 P0KE56333,127::P0KE1,51:FORX=0TO102 
3:POKEX +53248,PEEK(X+53248):NEXT 
6040 FORX=0TO31:READA:POKEX+53464,A:NEXT 
6050 POKE 1 ,55:P0KE56333,129:P0KE648,196: 
P0KE56576,4:P0KE53272,21 

6300 INPUT" OW MANY PLAYERS 01 

Sai";A*:A=VAL<A$>:IFA<10RA>10THEN6300 
6310 DIMS <4,2) ,P<A), R (2 ) 

6320 OX =15:DY = 15 : R <1)=-l:R(2) = 1:RR=1 :DD = 
1 

6499 RETURN 

7000 DATA20,FD,AE,20,9E,B7,8A,48,20,FD,A 
E,20,9E,B7,68,A3,13,20,F0,FF,20,FD,AE 
7010 DATA4C,A4,AA 

9000 DATA 0,0,2,135,126,124,230,149 
9010 DATA 0,0,64,225,126,62,103,169 
9020 DATA 0,0,0,6,127,254,126,37 
9030 DATA 0,0,0,96,254,127,126,164 
12000 PRINTPEEK <197 ) :GOTO 12000 = 


Hangman 


In this rather sophisticated game of Hangman the computer invites you 
to guess words from a range of topics, including animals, countries of 
the world, composers and artists, chemical elements, Christian names 
and general verbs. 


The strings from which the words are chosen by the computer are stored 
in A$ and you may wish to modify the program to include your own 
words and topics or to combine all the existing topics so that the selected 
word can be taken randomly from any one of them. Note that some of 
the topics are divided up into two distinct groups of words of different 
lengths and random number routines are used in the program to 
determine which group the word is to be chosen from. 

10 REM ********************* 


12 REM * * 

14 REM * HANG MAN * 

16 REM * * 

18 REM * CBM 64 BASIC 2 * 

20 REM * * 

21 REM * BY * 

22 REM * DAVE PONTING * 

23 REM * * 


24 REM ********************* 

25 POKE53280 ,0 s P0KE5328 1 ,0s PR INT"LSI" 

30 GOSUB10000:GOSUB7000:GOTO 1000 

100 IFRND<1> >.5THENG0T0125 
103 PR I NT" Si PRESS THE APPROPRIATE KEY " 
105 A$="PIGEONDONKEYBUDGIEMAGGOTJAGUARSP 
IDERBEETLEWEEV ILEARUIIGSHR IMPPLA ICE " 

110 A$=A$+"MINNOWBADGERCATTLEKITTENLOCUS 
TMAGPIERABB ITTURKEYTURTLECANARY" 

115 A$=A$+"GERBILMONKEYCURLEW" 

120 I = <INT<RND <1> *25) + 1>*6-5:B$ = MIDS<A$, 
I,6):RETURN 

125 A$="SNAILROACHHIPPOLLAMACHIMPCAMELHO 
RSETIGERHOUNDSNAKEROBINHERONRAVENSTORK" 
130 A$=AS> + "TROUTbJHALEHYENAPANDASKUNKTAP I 
RZEBRAMOUSESHREUIE AGLEShJ IFTPERCHPRAUIN " 
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135 I = <INT < RND(1)*31) + 1>*5-4:B$=MID$<A$, 

1.5) :RETURN 

150 IFRND <1)>.5THENG0T0175 
155 A$="ALBANIAAUSTRIABELGIUMDENMARKFINL 
ANDGERMANYHUNGARYICELAND IRELANDRUMANIA" 
160 A$=A$+"BAHRAINLE6AN0NALGERIALIBERI AN 
IGERIASENEGALTUNISIABERMUDAJAMAICA" 

165 A$=A$+"BOLIV IAURUGUAY" 

170 I = <INT < RND <1)*£1) + l)*7-6:B$ = MID*<A*, 
I,7):RETURN 

175 A$= " TURKE YUGANDASLIEDENPQLANDNORL1A YME 
X ICOKUWAITISRAELGREECEZ AMBIAFRANCE" 

180 A$=A$+"CYPRUSCANADABRAZILTAIWANPANAM 
AMALALi IJORDANA2 ORES ANGOLA " 

185 I=<INT(RND<1>*£0)+l)*6-5sB$=MID$<A$, 

1.6) :RETURN 

£00 A$="PURCELLROSSINIBELLINIBERLIOZBORO 
DINPUCCINIDEBUSSYSTRAUSSBRITTENHOLBEIN" 
£10 A$=A$+"MILLAISDAUMIERCEZANNEGAUGUINM 
ATIS3EPICASSO" 

£15 I=<INT<RND<1)*16)+1)*7-6:B$=MID$<A$, 

1.7) :RETURN 

£50 IFRND<1)>.5THENG0T0£75 

£55 A$="BARIUMCARBONCERIUMCOBALTCOPPERCU 

RIUMERBIUMHELIUMINDIUMIODINENICKEL" 

£60 A$=A$+"OSMIUMOXYGENRADIUMSILVERSODIU 
M" 

£70 I=<INT<RND<1)*16)+1>*6-5:B$=MID$<A$, 

1.6) :RETURN 

£75 A$="ARSENICBISMUTHBROMINECADMIUMCAES 
IUNCALCIUMFERMIUMGALLIUMHAFNIUMHOLMIUM" 
£80 A$=A$+"IRIDIUMKRYPTONLITHIUMMERCURYR 
HENIUMRHODIUMSILICONSULPHURTERBIUM" 

£85 I=<INT<RND<1)*££)+1)*7-6sB$=MID$<A$, 

1.7) :RETURN 

300 A$="JAMESDAVIDEDGARHENRYCAROLHELENBR 
IANSALLYSARAHSUSANPETERSIMONMANDY" 

305 A$=A$+"KEVINSCOTTNIGELMILESROBINVENU 
SROMEOCECILDYLANPERCYLEIGHEMILYPABLO" 

310 A$=A£+"FRANKCLIVEDIANANICKYTRACYBARR 
YGEOFFTERRY" 

3£0 I = <INT<RND<1> *34) + 1)*5-4:B$=MID$<A$, 
I,5):RETURN 

350 IFRND(1)>.5THENG0T0375 
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355 A$="CARRYCATCHMARRYLAUGHTWISTBRINGFE 
TCHWR ITECL IMBWORRYGL IDEAWASHSHOOTDODGE " 
360 A$=A$+ " F’UNCHSMACKSCALETHROWLOATHDR IV 
EPRESSTASTESPEAKHURRYSCORETRAILFORCE" 

3S5 A$=A$+"PROVETRACEPA INT" 

370 I = <INT <RND <1>*30>+1)*5-4:B$ = MID$<A$, 
I,5>:RETURN 

375 A$="COLOURTHRILLUNLOCKAFFECTABDUCTFO 
LLOWATTACKDEFENDD IFFERSELECTOUTPUT " 

380 A$=A$ + " DEF INE CHANCE MOD IFYREMA I NACCEP 
TSPRINGASSUREVANISHF INISHTRAVEL" 

390 I = <INT < RND <1>*21> + 1)*6-5:B$=MID$<A$, 
I,6 > :RETURN 

1000 REM THE GAME PROPER 

1005 PR I NT " LJ HANGMAN 

1007 PRINT" -" 

10 10 PR INT"SKI WHICH SUBJECT WOULD YOU 

LIKE?" 

10 15 PR I NT "13 1.ANIMALS" : PR I NT" £ 

.......COUNTRIES OF THE WORLD" 

1020 PRINT" 3.COMPOSERE & ARTISTS 

"SPRINT" 4.CHEMICAL ELEMENTS" 

1025 PRINT" 5.CHRISTIAN NAMES": PR 

INT" 6.......GENERAL VERBS" 

1027 PRINT" 7..COMPUTER'S CHOICE" 

1030 PRINT"^SMSSPRESS THE APPROPRIATE K 
EY TO MAKE CHOICE" 

1040 K$="W":GETK$:IFK$=""THEN1040 
1050 IFASC<K3O<430RASC<K$)>55THEN1040 
1055 IFASC(K$)=55THENK=INT(RND <1>*6> + 1 : K 
*=STR$<K> 

1057 KK=VAL<K$>: IFKK<1ORKK>7THEN1040 
1060 ON KKGOSUB100,150,200,250,300,350 
1090 PR INTHANGMAN 

1092 PRINT" --" 

1095 S=0:C=0:L=LEN<B$>:Y=16:X=£1 
1097 F0RW=1TOL:B$<W>=MID3><B$,W, 1 > 

1100 PRINTLEFT$<AT$,11>SPC<£0+W*£>:NE 
XTW 

1102 PRINTLEFT$<AT$, 14>SPC<18> " r - 


1103 PR INTSPC<18 >" | PREVIOUS GUESSES | " 

1104 FORT=1T04:PR INTSPC(18)" | 

I":NEXTT - 
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1106 
1110 


PR INTSPC <18) 
PRINT" 


bUUliUU 


» I_l « 

"SPC<80)"GUESS A LETTER 


1130 GETI$:IFI$=""THEN1130 
1 140 IFASC < I$X650RASC< 1$) >90THEN1 130 
1150 POKESO +4,21s FORT=1TO50:NEXTT: POKESO 
+ 4,£0 

1160 FORT=lTOLEN<X$>:IFMID$<X$,T,1)=I$TH 
EN1130 

1170 NEXTT:X$=X$+I$ 

£000 S1=S:FORF=lTOL 

£010 IFI$=B$<F>THENB$<F > = "#":GOTO£100 
£0£0 NEXTF 

£0££ IFS<>S1THENP0KESG+8,15:P0KES0+11,33 
:GOTO£040 

£0£3 POKESO+8,1£:POKESO+11,33:C=C+1 
£0£5 ONCGOSUB1£000,18010,1£0£0,18030,180 
40,18050,18060,18070,18080,18090,18100 
8030 PRINTLEFT$<AT$,Y)SPC<X>I$:X=X+£:IFX 
= >36THENX =81:Y=Y+1 

8040 FORT = 1TO50 : NEXTT : POKESO + 1 1 ,0:GOTO1 1 
10 

£100 PRINTLEFT$(AT$,10)SPC <£0 + F*£)1$ 

8110 S=S+1 : IFS=LTHEN3000 
8800 NEXTF:GOTO8030 

3000 PRINTLEFT$<AT$,88)SPC<6) "WELL DONE! 

! YOU CORRECTLY GOT " 

3005 PR INTSPC <7)B$" IN "C+S" GUESSES 
3010 PRINT" SFRESS ANY KEY TO PLAY 

AGAIN":FORT=lTO 1000:NEXT:WAIT197,191 
3080 GOSUB10£10:GOTO 1000 
7000 REM INITIAL SCREEN “I 
7010 FORX = 1T07 

7030 ONXGOSUB18000,18010,18080,18030,180 
40,18050,18060,18070,18080,18090,18100 
7040 FORT=1TO300:NEXTT 
7050 NEXT 

7060 PRINTLEFT$<AT$,3)SPC<1)HN$<5)_ 

II 

7070 A$ < 1 ) = " i— 1 -" 

7030 A$<8) = " | I " 

7090 A$<3>=" 1 - 1 " 

7095 FORT=1TO300:NEXTT 

7100 PRINTLEFT$(AT$,3)SPC<8>A$<:1) 
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7 110 FORT=1TO300 s NEXTT 
71£0 PRINTLEFT$<AT$,10)SPC<8>A$<£> 

7130 FORT=1TO300 : NEXTT 

7140 PRINTLEFT$<AT$,11)SPC<8>A$<3) 

7150 FORT =1TO300:NEXTT 

7 160 PRINTLEFT$<AT$,10 >SPC(9 >" HANGMAN" 
7200 PRINT N SM3MS®M&Mgi& & PRESS ANY KEY 
TO START THE GAME " 

72 10 WA IT197,64 : UIA IT197,19 1 
7999 RETURN 

10000 REM SHAPES FOR THE GAME 

10005 AT$= » " = R 

EM CUR.HOME + 24*CUR.D0WN 

100 10 HN$(1) = " Q SDDfl Q SLOB Q " ! REM NK+CDO 
WN+CLEFT+CLEFT ETC 

10020 HN$(£> = " □ SDDQ D EOQB Q " • REM NK+CDO 

WN+CLEFT+CLEFT ETC 

10030 HN^(3) = " "1- : -T" 

1O040 hn$<4) = " m% d^bb mi mb mi fcii i 

II 

10050 HN*<5> = " _" 

10060 HN*<6> = "\fi\" 

10070 HN^(7>="/n/" 

10080 HN$<8> = "| Mil " 

10090 -HN$<9 > = "\" 

10100 HN$ (10) = " “I-1 nTIMSBMiBil 

m m mmmm m mm i i i 11 

10200 FORT = 0TO127:READA:P0KE832+T,A:NEXT 
T 

10204 FORT=0TO63 s READAiPOKE 11*64+T,A:NEX 
TT 

10207 FORT = 0TO63:READA:POKE 15*64+T,A:NEX 
TT 

10203 SO=54272:FORT = 0TO28:READA:POKESO + T 
, A:NEXT 

10210 POKE2040 r 13 s POKE2041,14:V=53248 
10220 POKEV+21,0 

10230 POKEV ,110iPOKEV +1,14£:P0KEV+£,109: 
POKEV + 3,163 s POKES/ +39,1:POKEV+40,1 

10999 X$=.RETURN 

11000 PR INT" J" 

12000 PRINTLEFT$<AT$,18)SPC(3 >HN$<1>:RET 
URN 

12010 PRINTLEFT$<AT$,18)SPC<15>HN^<£):RE 
TURN 
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12020 PRINTLEFT$<AT$,17)SPC<3)HN$<3):RET 
URN 

12030 PR INTLEFT$<AT$, 9)SPC<1)HN$<4):RET 
URN 

1E040 PRINTLEFT$CAT$, 8>SPC(1)HN$(5>:RET 
URN 

12050 PRINTLEFT$<AT$, 15 )SPC- <S )HN$<6 ) : RET 
URN 

12060 PRINTLEFT$(AT$, 10)SPC < 6 > HN$ (7 ) : RET 
URN 

12070 PR I NTLEFT$(AT$, 9 ) SPC < 12 ) HN$ < 8 ) : RE 
TURN 

12080 PRINTLEFTSCAT*, 9)SPC<11)HN$<9):PO 
KEV+21 ,3 

12085 FRINTLEFT$<AT$, 1 1 )SPC< 12) "\MI I" : RE 
TURN 

12090 PRINTLEFT$<AT$,17)SPC<3)HN$<10) 

12 100 T=158 s POKEV+1,T:P0KEV+2,110:POKEV+ 

3,T+21:POKE2040,11:POKE2041,15 

12105 PRINTLEFT$<AT$,11)SPC<12)HN$<8) 

12 107 PR INTSPC <12)HN$ < 8):PR INTSPC( 12 ) " I " 
12110 PR INTLEFT$(AT$,22)SPC <5)"BAD LUCK! 

! YOU'VE BEEN HANGED" 

12115 PRINTSPC<6)"THE ANSWER WAS "B* 
12120 POKESO+11, 0 :GOTO3010 
20000 REM *** SPRITE MAN 1 *** 

20002 DATA 0, 0, 0, 0 , 0, 0, 0, 0, 0, 0, 
0, 0 

20003 DATA 0 , 56, 128, 0, 130, 0, 5, 1, 

64, 10, 68, 160 

20004 DATA 10, 0, 160, 10, 68, 160, 5, 5 

7, 64, 0, 130, 0 

20005 DATA 0, 108, 0, 0, 84, 0, 0, 68, 0 

, 3, 199, 128 

20006 DATA 7, 239, 192, 15, 255, 224, 29 

, 255, 112, 57, 255, 56 

20007 DATA 113, 255, 28,0 

20100 REM *** SPRITE MAN 2 *** 

20102 DATA 56, 255, 142, 16, 255, 132, 4 

8, 247, 134, 1, 227, 192 


20103 

DATA 

3, 

193, 

224, 

7, 

128, 

240 

128, 

248 , 

7, 

128, 

240 




20104 

DATA 

7, 

128, 

240, 

7, 

128, 

240 


128, 240, 3, 0, 96 
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20105 DATA 115, 0, 103, 127, 0, 127, 123 

, 64, 111, 0, 0, 0 

20106 DATA 0, 0, 0, 0, 0, 0, 0, 0/ 0^ 0. 

0 , 0 

20 107 DATA 0, 0, 0, 0 

20200 REM *** SPRITE MAN 3 20200- *** 

20202 DATA 0, 0, 0, 0, 0, 0, 0, 0^ 0^ 0^ 

0 , 0 

20203 DATA 0, 0, 0, 3, 128, 0, 4, 96, 0, 

9, 48, 0 

20204 DATA 16, 16, 0, 20, 80, 0, 16, 144 

, 0, 25, 32, 0 

20205 DATA 12, 80, 0, 3, 168, 0, 0, 68, 

0, 3, 199, 128 

20206 DATA 7, 239, 192, 15, 255, 224, 29 

, 255, 112, 29, 255, 112 

20207 DATA 29, 255, 112,0 

20300 REM *** SPRITE MAN 4 *** 

20302 DATA29, 255,112, 9, 255,32,25, 239 

,48, 1, 239, 0 

20303 DATA 1, 239, 0, 1, 239, 0, 3, 239, 

128, 1, 239, 0 

20304 DATA 1, 239, 0, 1, 239, 0, 1, 239, 

0, 0, 198, 0 

20305 DATA 0, 198, 0, 0, 70, 0, 0, 238, 

0, 13, 199, 96 

20306 DATA 30, 130, 240, 60, 0, 120, 24, 

0, 48, 0, 0, 0 

20307 DATA 0, 0, 0, 0 
25000 REM -- DATA 

25100 DATA0,11,0,0,20,56,140,0,8,0,0,32, 
9,248,0,55,0,0,0,0,0,0,0,0,15,0,0,0,0 



Evolution 


This is a series of six programs which have been divided into three self 
contained groups. It represents the evolution of life from the single celled 
amoeba to modern man, linked by a single theme—survival! 


Evolution 1 


Evolution 1 begins with the amoeba stage, in which the player controls 
the movement of a tiny amoeba which must wander round the screen 
eating spores whilst avoiding attack from other single celled creatures. 

In the second program in this suite the player is transformed into a frog 
which has to dodge from side to side avoiding capture by birds whilst 
zapping the required number of airborne flies with its tongue. There is 
no fairy princess as a reward for this one but instant promotion into the 
form of a beaver in the third program, in which you must swim around 
and capture ten fish whilst avoiding contact with a vicious crab. 


1 REM ***64 VERSION*** 

2 REM *** EVOLUTION 1 *** 

10 I=RND <-TI>sPOKE53£80,0!POKE53281,0:PO 
KE53272 ,£3:POKE650,255 

30 PR I NT" LJaiMHaT LEftSE WAIT WHILE USER- 
DEF INED 11 , , "SICHARACTERS ARE SET UP. 

40 P0KE52,48:P0KE56,48:P0KE56334,PEEK < 56 
334)AND£54:POKE 1,PEEK<1>AND251 
50 FOR 1 = 14336T015135iPOKE I,PEEK<1+40960) 
s NEXT 

60 FORF=15136T015287:READG:POKEF,G:NEXT 
70 FOR I = 1528ST016383:POKE I,PEEK <I+40960) 
i NEXT 


80 POKE 1,PEEK <1)0R4:P0KE56334,PEEK<56334 
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)OR 1:P0KE53272,<PEEK(53272)AND240> +14 
100 PR I NT" TAB < 10 ) " “ X r L. r \ ^ V /" , 

II t uMmsan — ii i r ■ ■ i - mm 

/ / 

102 PRlNT n KS@SI I HIS SEMI -SC I ENT IF IC SERIE 
S OF 

104 PR INT"^ROUTINES GIVES YOU THE CHANCE 
TO EVOLVE 

106 PRINT"UFROM AN AMOEBA TO A HUMAN BAS 
ED ON THE 

103 PR INT" =3THEORY THAT ONLY THE STRONG S 
URVIVE. 

110 PRINT"kmil HIS PROGRAM GOES FROM AMOE 
BA TO FROG 

112 PR INT"TO BEAVER. I HE NEXT PROGRAM GO 
ES FROM 

114 PRINT"GORILLA TO CAVEMAN.m I HE FINAL 
PROGRAM 

116 PRINT"OF THIS TRIO INVOLVES THE PRES 
ENT STAGE 

118 PR INT"OF EVOLUTION - \*/ AND HIS TEC 
HNOLOGY. 

120 PR I NT" Sfill HE INTENTION IS THAT YOU SH 
OULD TRY 

122 PRINT"THE STAGES IN THE CORRECT ORDE 
R BUT 

124 PRINT"AFTER EACH STAGE YOU ARE GIVEN 
A MENU OF OPTIONS. 

128 PR I NT" EMT“RESS | 6JTO CONTIN 

UE. " :FORQ=1TO10iGETN^s NEXT 
130 GETZ: IFZ$< > " "THEN 130 

132 PRINT"LISMII HE FIRST STAGE IS AS AN A 
MOEBA <| >. 

134 PR INT"□ |OU HAVE TO EAT 5 SPORES < ^ 

> WHILE AVOIDING 3$ AND | . 

138 PRINT"E*flll HIS IS ALSO A BATTLE AGAIN 
ST TIME, 

140 PRINT"FOR WHEN THE CLOCK AT THE TOP 
OF THE 

142 PRINT"SCREEN SAYS 0, IT MEANS THAT Y 
OU HAVE 

144 PRINT"STARVED BECAUSE YOU DID NOT EA 
T THE SPORES IN TIME. 

148 PRINT»>ag\OVE ABOUT IN THE WATER US IN 
G: 
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150 PRINTTAB< 16) "H2 - /"T TAB <38 ) "(2 - L“— 

I t - _^| || "TAB <95) "Z - “TO/ 

156 PRINT "k MCTIM -RESS I ♦- kTO STAR 

T STAGE 1.":FORQ=1TO10:GETN*:NEXT 
158 GETZ $: IFZ$< > " "THEN158 
1050 PRINT" J" :AY=16: AX=18: A$="^| | imm" • 

= T=i00:sc=0 

1060 FORF =1T06:Y<F)= INT<RND <1>*££>+ 1:X<F 
) = INT <RND <1> *3£ > + 4 

1070 PRINTLEFT$<Y$,Y<F>+1)LEFT*<X*,X<F> > 
MID*(B*,F,1>MID*<A*,F,1>:NEXT 
1 100 PR INTLEFT*<Y*,AY+ 1 >LEFT*<X*,AX) "a| 
1110 FORF =1T05STEP£ s FOR I=FTOF + 1 
1 1£0 POKE10£4+40*Y<I)+X < I ) ,3£:Y <I) = INT < Y 
<I)+RND(1>*£-RND<1)*£> 

1 1££ X < I ) = I NT < X < I ) +RND < 1 !>*3-RND< 1 ) *3 > 

1 1£5 IFF <5THENY <I)=Y<I )-<Y<I)<AY> + <Y<I)> 
AY):X<I)=X<I>-<X<I)<AX>+<X<I>>AX> 

1130 IFY <I)<1ORY <I> >££THENY<I> = 1£ 

1140 IFX<I) <4GRX <I )>35THENX<I) = 19 
1 150 PR INTLEFT* < Y* , Y <I) + 1>LEFT*<X*,X<I)) 
MID*<B*,F1)MID*<A*,1,1) 

1 155 IFF’EEK < 10£4+40*AY+AX>< > 1 0 1 THENGOTO 1 
£00 

1157 POKE10£4+40*AY+AX,3£ 

1158 M*="":FORQ=1TO10:GETN*:IFN*=""THEN1 
160 

1158 M*=N*:NEXT 

1 160 AY-AY - <M* = " Z 11 ANDA Y< ££ ) + < M* = " £ " ANDAY 

>1 ) 

1 170 AX =AX-< M* ="t"ANDAX<35) +<M*="©"ANDAX 

>4 > 

1175 T = T-1 :PR INT"3" TAB< 19) "3 IMrT:lFT= 
0THEN1£ 10 

1176 IFPEEK <10£4 +40 *AY+AX)<>3£ANDPEEK <10 
£4 +40*AY + AX>< >101 THEN1£00 

1 178 PR INTLEFT* < Y*, AY + 1)LEFT*<X*,AX )"M 
1180 NEXTI,F sGOTO 1100 

1800 I FPEEK < 10£4+40:f-AY + AX) = 10£ORPEEK< 10£ 
4 +40 *AY+AX ) = 103THEN1£ 10 

1£01 PRINTLEFT*<Y*,AY+1)LEFT*<X*,AX) M | " 
LEFT*<Y*,£3);LEFT*<X*, 16) " | |“l K\! 

1 £0£ F0R.J = 5T06: IFAY = Y < J > ANDAX=X < J >THENLJH 
= J 
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1203 NEXT: Y < UIH ) = I NT < RND < 1 ) *22 ) + 1 :X(WH)=I 
NT CRND <1>*32>+4 

1204 PRINTLEFT$<Y$/Y<WH ) + 1 )LEFT$<X$,X <WH 

> 1 >MID$<A$,WH, 1 > 

1205 FORQ=1TO200:NEXT:PR INTLEFT*<Y$,23)L 
EFT$ (X$,16)" 

1206 SC=SC+1 s IFSC<5THEN1178 

1208 PRINT" L'jqiH 0ELL DONE! |OU SURVIVED T 
HE FIRST 

1209 PR INT"gfBTAGE OF EVOLUTION AS AN AMO 
EBA. "s GOTOS000 

1210 PR I NT" I AD LUCK! |OU FAILED IN T 

HE 1ST STAGE OF EVOLUTION."sGOTO8000 
2000 PRINT" LMM^ N THIS STAGE YOU HAVE TO 

CATCH FLIES 

2002 PR I NT"ON YOUR TONGUE, WHILE AVOIDIN 
G THE BIRDS 

2004 PR I NT "CJ\IH ICH SWOOP DOWN TO TRY AND 
CAPTURE 

2006 PR INT"THEIR PREY- F r\ 

20 10 PRINT" BSBIT RESS 0 TO STICK YOUR TONG 
UE OUT 

20 12 PR INT"6 TO MOVE LEFT, AND 7 TO MOVE 
RIGHT 

2014 PRINT"fifi£^ [OU HAVE SURVIVED THIS STA 
GE WHEN YOU 

20 16 PR I NT"HAVE CONSUMED 10 FLIES WITHOU 
T FALLING 

20 18 PR INT"PREY TO THE BIRDS. 

2020 print» hummtr ress |#_ uro star 

T.":FORQ=1TO10:GETN*:NEXT 
2022 GETZ$:IFZ*<>" "THEN2022 

2024 PR I NT "ij 

2100 X =18 s Y <1>=RND<1)*6+14!X(1)=4:Y(2) = 1 

: X < 2 > =34 s Y < 3)=Y C 2 >!X<3>=X<2):F=0 

2110 PRINTLEFT:$< Y$,23)"IMHHk- 


2120 PR INT"TAB(18)FLEFT$<Y*,21>LEFT$<X 

*,x>" w i mmmm h B n 

2121 PRINTLEFT$<Y*,Y<1)+l) LEFT*<X*,X<1)> 
"E1 L»lEFT*(Y*,Y<:3:> + 1 >LEFT*<X*,X<3;> ) " 

2122 PRINTLEFT*<Y*,Y<2)+1)LEFT*<X*,X<2)> 

2123 Y<3)=Y<2):X(3>=X<£> 
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2124 M$= "" :FORQ= 1T010:GETN$:IFN$=""THEN£ 
126 

£125 M$=N$:NEXT 
£ 12G IFM* ="0"THENGOSUB2200 
£140 IFF'EEK < 1786+X)=1 10THEN2250 
£150 IFY <£ ) <>19THEN2155 

215£ PRINTLEFT3KY:£,Y<£) + 1>LEFTS<X£,X<£>> 

.....<2.. 

4 

£155 I FX <1)< 34THEN2160 

£157 PRINTLEFTS<YS,Y< 1 ) + l )LEFTS<XS,X< 1 ) ) 
" ":X <1)=4:Y <1> =RND C 1 ) *6 +14 
£160 PRINTLEFTS<Y$,Y<1 ) + 1>LEFTS<XS,X<1)) 
" "LEFTS<YS,Y<£>+1)LEFTS<XS,X <2> >" 

£180 Y(£)=Y(£)+£:X(£)=X(£)-(X(£XX+£) + (X 
<£> >X+2) 

218£ Y< 1 )=Y<1)+ RND <1 >*1.5-RND<1>* 1.5:X<1 
)=X<1)+RNDC1>*1.5:IFY<1>>£1THENY<1 > = 15 
£130 X=X+ <MS=”6" ANDX >3)-<MS ="7"ANDX<33 ) 
2135 GOTO2120 

££08 PR INTLEFTS<YS,£0)LEFTS(XS,X +2 >" riH 

Eii_rB » na ni raa ra k 

££0£ FORQ=1TO100:NEXT 

£204 PR INTLEFTS<YS,13)LEFTS<XS,X+£)" S0D 

M SOI BOB BIB MDfl BIS 11 

£210 IFPEEK <1024+40*INT(Y<1 >)+X < 1 > > = 109T 
HEN££20 


££12 F =F + 1:PRINTLEFTS<YS,Y<1 > + l>LEFTS<XS 
,X< 1 > > " ":X<1>=4SY(1)=RND<1>*6+14 

£220 IFF <>10THENRETURN 

££££ PRINT"JQMI^ioELL DONE! |OU CONSUMED 
10 FLIES AND 


2230 PR INT"CAN THEREFORE EVOLVE TO THE N 
EXT STAGE.":GOTO8000 

£250 PRINT"IOU HAVE BEEN CONSUMED A 
ND CAN EVOLVE NO FURTHERGOTOS000 
3000 PR INT" LJg&Mii IOU HAVE NOW EVOLVED TO 
A BEAVER. ^N 

3002 PR I NT" BJTHIS STAGE YOU HAVE TO EAT 1 
0 FISH 

3004 PR INT"^BEFORE YOU ARE EATEN BY THE 
PATROLLING ||CRAB. 


30 10 PR I NT 11 |#I\0 VE USING:&g3 


,-~l" TAB < 


38) "O - L“-l t - _^| || 


£ 
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30 16 PR INTTAB < 15 ) "gJZ - -fo/H 
3018 PR INT"AND TRY TO EAT THE FISH. \flKE 
SURE THAT 

3020 PRINT"YOU AVOID THE CRAB BECAUSE IF 
IT GRABS YOU, YOU ARE DEAD. 

3022 PRINT" mii^ ~RESS an*- - | *_ kTO STAR 

T. ":FORQ=1TO10:GETN$:NEXT 

3024 GETZ $: IFZ $< >" "THEN3024 

3070 P0KE532S1 ,6:PR INT" J"LEFTS<YS,23> "gfifl 

1M B I I I I I I I II I I 111 I I I I I I I I I I I I I I I I 

3072 FORQ = 1024TO 1263 : POKED ,160: F'OKEQ +542 

72,0:NEXT 

3074 FORQ =1264TO 1304STEP40:FORF =QTOQ +3: : 
POKEF,160:POKEF +36,160:POKEF+54272,0 
3076 POKEF +54308,0:NEXT 

3078 FORQ =1944TO2023:POKED,160:POKEQ+542 
72,0:NEXT 

3085 Y=21:X=19::Y1=Y:X1=X:F=6:G=4:F1=F:G 
1 =G 

3087 AS = " r-L" sFI=0:PRINT ,, 3aal ,l TAB< 19)FI 
3090 IFRND <1> >.95THENPRINTLEFTS<YS,RND<1 
> *15+7>LEFTSX.XS,RND< 1 ) *29+5>MIDS<BS,RND< 

1 )*4+3,1 > "| 

3095 IFF'EEK < 1024 +40*Y+X > < > 1 17ANDFEEK < 102 
5 +40*Y+X><>117THEN3098 

3096 FI ~r I + 1:PR INT"33" TAB <19)FI: IFFI< > 10 
THEN3098 

3097 PRINTLEFTS<YS,Y1+1>LEFTS<XS,X1)"3 
U"LEFTS(YS,Y+ 1 >LEFTSCXS,X >AS:GOTO3250 
3093 PRINTLEFTS<YS,Y1+1>LEFTS<XS,X1>"3 
"LEFTS<YS,F1+1>LEFTS<XS,G1)" U 

3099 PRINTLEFTS<YS,Y+1)LEFT*<XS,X)ASLEFT 
*<YS,F+1 >LEFTS<XS,G> "63 3 
3 115 Y1=Y:X1=X:F1=F:G 1 =G 
3 117 IFF =YAND <G=XORG=X + 1>THEN3300 

3118 MS -"":FORQ =1 TO 10:GETNS: IFNS=""THEN3 
120 

3119 MS=NS:NEXT 

3 120 IFMS="t"THENAS=" r 1 " 5X = X+<2ANDX<33) 

3 130 IFMS="©"THENAS="-H ":X=X-<2ANDX>5> 
3140 Y=Y+<MS="2"ANDY>6> 

3150 Y=Y-<MS="Z"ANDY<21> 

3 160 F =I NT < F +RND<1>* 1.5-RND<1>*1.5-<F<Y> 
+ < F >Y >>:G = G +1 
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3 170 IFF < 60RF >2 1 THENF =<21 ANDF >2 1 >+<6ANDF 

<6 ) 

3180 IFG=35THENG=4 
3190 GOTG3090 

3250 PQKE5328 1 , 0 : PR I NT 11 LMBBI OFL.L DONE! |0 
U SURVIVED AS A BEAVER 

3252 PR INT"AND YOU CAN CONTINUE TO THE N 
EXT STAGE IF YOU NISH. 

3260 GOTO8000 

3300 PQKE5328 1 , 0 : PR I NT 11 LMBtgiB 1 AD LUCK! |OU 
CAN EVOLVE NO FURTHER 
3302 PR I NT" K1BECAUSE YOU HAVE BEEN DESTRO 
YED BY THE WCRAB. 

8000 PR INT ,, MW»B>r FESS THE KEY NHICH CORRE 
SPONDS TO 

8002 PR INT"NHAT YOU WANT TO DO NEXT. 

80 10 PR I NT 11 B1S1 .... #MOEBA STAGE. 

8012 PRINT"M2._ROG STAGE. 

8014 PR I NT 11 S3. . . . | E AVER STAGE. 

8016 PRINT" 134. * . .LOAD STAGES 4 & 5. 

8018 PRINT"H5 ....~XIT FROM THE PROGRAM. 

8019 POKE650,0 

8020 FORQ = 1TO 10 s GETN$:NEXT 
8022 GETM$:IFM$ =""THEN8022 
8025 POKE650,255 

8030 ONVAL(M$)GOTO 132,2000,3000,8050,806 
0 

8040 G0TO802£ 

8050 LOAD 
8060 END 

8990 DATA240,240,240,240,£40,240,£40,240 
9000 DATA 120,132,180,178,129,153,85,51,, 
£4,36,90,90,36,24,0 

9010 DATA0,73,42,£3,1£7,£8,42,73,,60,66, 
145,133,145,66,60 

9020 DATA2S,34,78,79,56,32,64,4S,56,68,1 
14,242,23,4,2,12 

9030 DATA 15,48,64,92,88,84,82,£49,£40,12 
,2,53,26,42,74,159 

9040 DATA0,,,34,85,63,24,,,,,63,127,143, 
1,15,3 1,124,240,192,224,255, ,0 
9050 DATA0,,15,16,224,159,8,12,,32,220,1 
0,1,254,16,24 

9060 DATA0,4,59,S0,128,127,8,24,,,240,8, 
7,243,16,48 
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9070 DATA0,,8,61,191,255,855,255,12,30,1 
86,255,255,190,30,12 

9080 DATA 195,60,255,126,235,66,165,165 
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Evolution 2 contains two programs. In the first, the player controls a 
large gorilla which lumbers round a forest collecting bananas which 
drop randomly to the ground. The computer controls a small and 
extremely agile monkey which makes for very tough competition. 

The second program in this section puts you in control of a caveman 
who tries to kill raiders attacking his territory from surrounding caves 
by firing arrows. 


0 REM* **64 VERSION*** ***EVOLUTION 2*** 

1 I =RND < -TI ) '• POKE53280,0 : P0KE5328 1 ,0:POK 
E53272,23!POKE650,255 

3 PRINT\-JHB»-Tl.Efl8E WAIT WHILE USER-D 
EFINED" , , "SBCHARACTERS ARE SET UP. 

4 P0KE52,48:P0KE56,48:P0KE56334,PEEK <563 
34) AMD254:POKE 1,PEEK<1)AND251 

5 FOR I = 14336T015143:P0KEI,PEEK< 1+40960): 
NEXT:FORF = 1T064:READG:NEXT 

6 FORF=15144T015279:READG:POKEF ,G:NEXT 

7 FOR I = 15280TO 16383iPOKE I ,PEEK< 1+40960) : 
NEXT 


8 POKE 1 ,PEEK<1)0R4:P0KE56334,PEEK<56334) 
OR 1!P0KE53272 , <PEEK<53272)AND240) +14 
10 PRINT" b i^M^F YOU HAVE TRIED THE PREV 
IOUS PROGRAM 

12 PR INT"QTHIS WILL BE THE 4TH STAGE IN 
THE 

14 PR INT"EVOLUTION SEQUENCE. EKF YOU HAV 
EN'T THEN 

16 PR INT"THE OBJECT IS TO EVOLVE AS FAR 
AS 

18 PR INT"POSSIBLE IN A ROLE-PLAYING SERI 
ES OF DIFFERENT PROGRAMS. 

30 PRINT"HUk^N THIS STAGE YOU PLAY THE P 
ART OF A 

32 PR INT"GORILLA WHO COMPETES AGAINST A 
SMALLER 
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34 PR I NT"MONKEY MHO IS FASTER THAN YOU. 
il |OU HAVE 

36 PR INT"TO EAT ONLY 10 OUT OF 40 BANANA 
S WHICH 

38 PRINT"ARE PLACED IN THE FOREST IN RAN 
DOM 

40 PR INT"POSITIONS, BUT THE MONKEY LIKES 
BANANAS AS WELL! 

50 PR I NT "IMPRESS I ♦_ UTO CONTINU 

E. ":FORQ = 1TO 10:GETN$ s NEXT 
55 GETZ$* IFZ$< >" "THEN55 

60 PRINT" k iSMI\OVE US ING: "TAB(97 > "2 - 71 " 

TAB (39) "15 - L~—I t - I II 

62 PR INTTAB(56 ) " ♦ - “TO/ 

64 PRINTOUT NOTE THAT YOU CANNOT GO TH 
ROUGH THE TREES. 

70 PRINT"!MEIOU PICK UP A BANANA BY ALIG 
NING THE 

72 PR I NT"TOP HALF OF YOUR BODY WITH THE 
BANANA. 

80 PRINT"MkTRESS I *- kTO START. 

":FORQ =1 TO 10:GETN*:NEXT 
82 GETZ$s IFZ $< >" "THEN82 
34 POKE53280,5s P0KE5328 1 ,5 
200 PRINT" ^fflMMIi t-l-l-i-M-l-M-H-t-M-M-hhM-M-h 
PPI-H-I-PPP 

202 pr i nt" mmmm ......................... 


204 F0RF=lT09:PRINT"®aaiihl-"TAB<34) " 1-h" : 
PR INT"iafig^ o ■" TAB (34 ) " □ ." : NEXT 

2 10 PRINT"IBlMahhhhH-H-hhH-H-l-hhhM-l-hM-h 
P M- h P PI- 

212 print" ......................... 


230 FORF = 1 TO 12 • X=RND(1)*27+6:Y=RND<1 )*16 
+ 4 : PR I NTLEFT$ (Y$,Y >LEFT*<X$,X > " 3 \mm • N 
EXT 

240 G =6 : F =3 : G 1 =G : F 1 =F : Y= 19 ! X =32 : Y1 =Y : X 1 = 
X 

250 B =40:S =0 

260 BY=INT(RND(1)*15+3):BX=INT(RND(1)*26 
+ 6 ) 

265 IFPEEK <1024+40*BY + BX)< >320RPEEK<1064 
+40 *BY+BX)<>32THEN260 
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£70 PRINTLEFT$<Y*,BY+1>LEFT$(X*,BX) "BP 
£80 PR INT"g®iaMMi ,l BTAB <30 >S 
300 PRINTLEFT$(Y$,Y1+1)LEFT$<X$,X1)" £B| 

m "LEFT4;<Y$,Y+1 >LEFT$<X$,X > BO L* 

30£ PRINTLEFT$(Y$,F1+1)LEFT$(X$,G1>" "LE 

FT$CY$,F+1>LEFT$<X*,G>" 8 

304 PR INTLEFT$< Y$, BY + 1 >LEFT*(X*,BX ) 

3£0 IFY = BYAND <X=BXORX=BX-1>THENGOSUB650 
330 IFF=BYANDG=BXTHENB=B- 1 SPRINT " MaBiaEiaWM 
mi 0^18" B s G0SUB655 
335 Y1=Y:X1=X 
340 F 1 =F:G1=G 

344 M* ="":FORQ=1TO10:GETN*:IFN*=""THEN35 
0 

346 M* = N*:NEXT 

350 Y = Y- < M*= "Z" ANDY< 19 > + <M* ="£ "ANDY>3 ) :X 
=X-<M*="t"ANDX< 3£ > + < M*="©"ANDX>6 > 

360 IFPEEK <10£4+40*Y+X)>106ORPEEK< 1064+4 
0 *Y+X)>106THENY=Y1:X = X1 

365 IFPEEK(10£5+40*Y+X)>106ORPEEK<1065+4 
0*Y+X> >106THENY = Y1:X=X1 

380 F=F-<F<BY> + <F >BY>:G=G-<G<BX) + (G>BX> 
330 IFPEEK <10£4+40*F+G><107THEN300 
33£ F =I NT < F1+RND <1>*1.5-RND<1>*1.5>:G=IN 
T(G1+RNDC1 >* 1.5-RND<1) *1.5)SGOTO330 
650 S=S+l:B = B-l:PRINT"gMiaaii| 1H@I"6T 
AB <30)S 

655 IFS =10THEN800 
657 IFB =0THEN700 

660 BY=INT(RND <1 )*15+3>:BX=INT<RND<1> *£6 
+ 6 ) 

665 IFPEEK <10£4+40*BY + BX)< >3£0RPEEK <1064 
+ 40*BY+BX)< >3£THEN660 

670 PRINTLEFT*(Y*,BY+1)LEFT*<X*,BX> "W 
630 RETURN 

700 POKE53£80,0SPOKE53£3 1 ,0i PR INT" JaMM l 
AD LUCK ! |OU ARE NOT FAST ENOUGH TO 
7£0 PRINT"PROGRESS ANY FURTHER IN EVOLUT 
ION. "s GOTO 1810 

800 POKE53£80,0 s P0KE53£8 1 ,0 s PR I NT " LMI&llO 
ELL DONE ! |OU MANAGED TO EAT THE 
810 PR INT"BANANAS BEFORE YOU STARVED AND 
THEREFORE 

8£0 PRINT"nrOU CAN PROCEED TO THE NEXT S 
TAGE. "sGOTO 1810 
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1000 PRlNT ,, Ki«aBW HE OBJECT HERE IS TO STO 
P OTHER 

1002 PR INT"CAVEMEN FROM ATTACKING YOUR C 
AVE . |0UR 

1004 PR I NT"CAVE IS IN THE MIDDLE OF 8 OT 
HERS, AND 

1006 PR INT"FROM ANY OF THESE CAN COME RX 
VALS WHO 

1008 PR INT"ARE PREPARED TO KILL YOU IN O 
RDER TO STEAL YOUR PROPERTY. 

1010 PRINT"IMIOU CAN SPIN ROUND WITH 6 A 
ND 7 AND 

1012 PR INT"THROW A SPEAR WITH 0. |GU HAV 
E 

1014 PR INT"SUCCESSFULLY DEFENDED YOUR CA 
VE WHEN 30 

1016 PRINT"ATTACKS HAVE BEEN MADE. |OWEV 
ER, YOU ARE 

10 18 PR INT"031VEN 3 LIVES TO MAKE YOUR T 
ASK EASIER. 

1020 PRINT" gH^Sr ~RESS | #_ IffTO STAR 

T. "!FORQ =1 TO 10:GETN* : NEXT 
1030 GETZ*:IFZ*<>" "THEN1030 

1040 PRINT"LMJMUL-.X - * : BB 

1050 RESTORE:FORA=1T08:S=RND(1)*7+2:F0RC 

=1TOS:READQ:PQKE1024+Q,160 

1060 POKED +552S6,S:NEXT:NEXT 

1090 A*=" u^rVII " :A=1 iS = 0:C=0:C$=» 

109 1 K = 0 

1092 F'R I NT" gl M TAB < 25 ) "a^| | “XII ”C: IFC=30 
THEN1700 

1095 ONINT<RND<1>*8 > + 1G0SUB1400,1410,142 
0,1430,1440,1450,1460,1470 
1100 PRINTLEFT*<Y*,13)LEFT*(X*,19)"U"MID 
*<A*,A,1> 

1110 PR INTLEFT*<Y*,Y+1>LEFT*(X*,X)" ":Y = 

Y + D Y: X =X +DX 

1112 PR INTLEFT* ( Y*,Y + 1)LEFT*<X* ,X ) "U 
1115 I FY = 12ANDX = 19THEN1600 
1120 IFS = 0THEN1 190 

1125 PR INTLEFT* < Y*,F + 1)LEFT* < X*,G)" ":F = 

F +Y2:G =G +X2 

1130 PR INTLEFT*<Y*,F + 1)LEFT*(X*,G)"H"B* 

1 135 IF <<F=YANDX=G >0R <F + Y2=YANDG+X2=X)) = 
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0THEN1130 

1140 PRINTLEFT*<Y$,F+1>LEFT$<X*,G>" " 

1 145 FQRW- 1T08 s PR INTLEFT$< Y$, Y+ 1 >LEFT$<X 
*,X>MID*(C:*,W,1 > "I "!NEXT:S =0 s C=C+1 
1150 GOTO 1092 

1130 M$="":FORQ=lTO10:GETN*sIFN$=""THEN1 
200 

1135 M*=N$:NEXT 

1200 A=A-<M$="7"ANDA<8>-<7ANDM$="7"ANDA= 
8 > + <M$="8"ANDA>1> + <7ANDM$="6"ANDA =1) 

12 10 IF(M$="0"ANDS =0 ) =0THEN1300 
1220 B$”MID$(A:£, A,1>:F=12:G=19:S=1 
1230 ONAGOSUB1520,1530,1540,1550,1560,15 
70,1580,1530 
1300 GOTO 1100 

1400 Y=2:X=3:DY=1:DX=1:RETURN 
1410 Y= 1 5 X = 13 s DY = 1 s DX=0 '• RETURN 
1420 Y=2 : X, = £9 : DY= 1 :DX = -1 : RETURN 
1430 Y=12:X=31:DY=0:DX=-1?RETURN 
1440 Y=23 s X =30 s DY =-1?DX = -1:RETURN 
1450 Y=23:X=19:DY=-1:DX=0:RETURN 
1460 Y=£3:X-8:DY=-1:DX=1:RETURN 
1470 Y=12 2 X=7 s DY=0 s DX=1:RETURN 
1520 Y2=-l:X2=0:RETURN 
1330 Y2 = -1s X2=1sRETURN 
1540 Y2=0:X£=1:RETURN 
1550 Y2=i:X2=1:RETURN 
1560 Y2 =1s X2 = 0 s RETURN 

1570 Y2 =1:X£ = -1:RETURN 
1580 Y2=0:X£=-1:RETURN 
1530 Y2 = -1s X2 = -1:RETURN 

1600 PRINTLEFT*<Y$,F+1>LEFT$(X*,G>" "LEF 
T$<Y$,Y+1>LEFT*<X$,X>"| "s FORF =1TO40:NEXT 

1601 PRINTLEFT$<Y*,Y+1>LEFT*<X$,X>MID$<A 
$,A, 1 > M a"LEFTS<X$,K+l 1 > " H :K=K+1 

1605 IFK=3THEN1800 

1607 S=0 

1610 GOTO 1092 

1700 PRINT" LDOTI oELL DONE! “EFENDING YOUR 
CAVE WAS NOT 

1702 PR INT"□EASY, BUT YOU DID VERY WELL 
AND CAN 

1704 PRINT"EVOLVE FURTHER IF YOU WISH TO 
. ":GOTO 1810 
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Evolution 3 is the logical culmination of survival conditioning. As the 
leader of the superpower of your choice you must destroy your enemy’s 
capitals with cruise missiles before you are destroyed by one of their 
ICBM’s. To do this you have a very short time to pre-program the flight 
of your missile with a series of direction codes as the enemy’s missile 
moves towards your capital. The screen features a map of the world on 
which the missile courses are plotted. 

10 REM *************************** 

20 REM * EVOLUTION #3 * 

30 REM * ORIG. BY P. STANLEY * 

40 REM * CBM64 VERSION BY GEOFF.* 

50 REM * USER GRAPHICS ARE SHIFT* 

60 REM * A TO P. ENTER ROUTINES* 

70 REM * AT 5000 - 5110 FIRST & * 

80 REM * SAVE THEM. GOOD LUCK * 

90 REM *************************** 

100 P0KE52, 64 :P0KE56,64:CLR•REM PROTECT 
NEW CHAR SET 

105 DIMA$<10),X%<10),Y%<10),A<10),C$<50) 

:CM=55296:SS=16384 

110 P0KE54296,8!POKES3280,6:P0KE532S1 „ 12 
s GOSUB7000 

199 REM ** START OF ACTION ROUTINES ** 

200 CA =T NT(RND <0)*10+1): IFA$<CA)=CP$ORA < 

CA)=1GOTO200 

210 CXX=XY.<CA) :CYY.=YX(CA) :AP=CYX*40+CX%: 
POKECM+AP : SC =SC +1•REM ATTACK CAP RED 
220 OS=X>'<CN) +YY.<CN)*40 :POKECM+OS ,2 :RC = 7 
0 s CC =2 : YY.=YX < CN ) : XX=XY. < CN ) 

229 REM ** ENTER MISSILE PROG ** 

230 C = 1 :PRINTSC$"aE:NTER PROGRAM AFTER TH 
E TONE. "s FORA =1TO50:C$ < A > = "":NEXT 

235 FORA=1TO 1000!NEXTJGOSUB5300SPRINTSC$ 

240 HI=38:LO =97iDU =800 • GOSUB5350 

250 C1=C:F0RF=1T0SK*2:GETQ$:IFQ$=""THENN 
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1800 PRINT"kJMII AD LUCK! |0U FAILED IN Y 
OUR ATTEMPT TO DEFEND YOUR CAVE. 

1810 PRINT"®lii|-FESS THE KEY WHICH CORRE 
SPONDS TO LHAT YOU WANT TO DO NEXT. 
1320 PRINT"^1 . . . *TART THE GORILLA STAGE 

1822 PRINT"®...VTART THE CAVEMAN STAGE. 
1824 PRINT"®. . .LOAD THE 6TH STAGE. 

1826 PRINT"®. . .-XIT FROM THE PROGRAM. 

1828 FORQ =1TO 10:GETN$:NEXT 

1830 GETM$:IFM£=""THEN1830 

1840 IFM$="1"THENPRINT":GOTO30 

1850 IFM*="2"THEN1000 

I860 IFM$= "3 "THENL-OAD 

1870 IFM*="4"THENEND 

1830 GOTO 1830 

L3G0 DATA47,48,43,87,88,127,128,128,18,1 
9,20,58,58,60,38,100 

1910 DATA69,70,71,110,111,149,150,151,44 

5,446,447,435,486,525,526,527 

1920 DATA471,472,473,512,513,551,552,553 

,886,887 ,888,926,927,966,967,963 

1930 DATA898,898,900,933,940,978,979,980 

,910,911,912,951,952,990,991,992 

2010 DATA64,99,101,51,63,31,13,7,,192,16 

0,192 ,248,252,190,231 

2020 DATA7,7,7,14,12,12,12,28,227,225,22 
4,1 12,48,48,48,56 

2030 DATA2,2,6,14,28,56,240,,25,25,255,1 
88,152,60,36,102 

2040 DATA8,60,126,254,255,127,126,60,24, 
24,24,24,24 ,24,24,24 

2050 DATA8,28,8,8,8,8,8,8,,6,6,8,16,32,6 

4.. ..2.255.2.....64.32.16.3.6.6.0 

2060 DATA8,8,8,8,3,8,28,8,,2,4,8,16,96,9 

6.. ..64.255.64.....96.96.16.8.4.2.0 
2070 DATA28,28,8,62,8,28,20,20 
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EXTF:GOSUB300:GOTO290 

260 IFQ$ = ,, N"ORQ*="S ,, ORQ$= ,, E ,, ORQ$ = "UP THEN 
C$<C >=Q$:C =C + 1:PR INTQ$; :GOTO280 
265 IFQ*="F"0RC=51THENGOSUB5300:HI=16:LO 
=5:DU =300:GOSUB5350:F =SK *2:NEXTF:GOTO400 
270 IFC1=CTHENGOSUB300?GOTO230 
273 GQTO280 

280 F =SK *2:NEXTF:HI=44:LO=193:DU = 300:GOT 
0250 

290 IFPH=1GOTO3000 
295 GOTO250 

300 REM *** ENEMY MISSILE MOVES *** 

305 IFCYX<YX<CN)THENCY%=CY%+1:MI=67 

3 10 IFCYX >YZ < CN> THENC YX.=CYX- 1 : MI =65 
320 IFCXX<X%<CN>THENCXX.=CX>:+1 :MI=66 
330 IFCXX>XX<CN)THENCXX=CX%-1:MI=68 

340 POKESS+AP,RC:POKECM+AP,CC:AP=CY%*40+ 
CXX:RC=PEEK(S3+AP):CC=PEEK <CM+AP) 

350 POKESS + AP,MIsPQKECM+AP,10 
355 IFRC=MMTHENRC =MC:CC =MD 

360 I FCYX = YX (. CN)ANDCXX = XX < CN ) THENGOTO300 
0 s REM YOU’RE HIT! 

370 HI =31!LO =213sDU=20!GOSUB5350!HI=26 s G 
OSUB5350:RETURN 

399 REM *** MOVE YOUR MISSILE *** 

400 C=1:MC=70:MD=7:POKECM+OS,7 

4 10 FORF= 1T03: YY.=Y%+<C$<C ) = "N" >-<C$<C>=" 

s") :x>:=xv;+<c^(C) = "UJ" >-<c$<c>= m e"> 

420 P0KESS+0S,MC2P0KECM+0S,MD 

430 I FYZ >19THENYX=0 

435 IFY%<0THENY%=19 

440 IFXX.<0THENXX=39 

445 IFXX >39THENXX=0 

450 OS=YX*40+XX:MC=PEEK<SS+OS>:MD=PEEK(C 
M+OS > 

460 LETMM=64-CC^<C>="N">-<3*<C$<C>="S">) 
-<2*<C$<C) = "E " > >-<4*<C$<C)="LP > > 

465 IFMC=MIANDF=3THENMC=RC!MD=CC 
470 POKESS +0S,MM s POKECM+OS,7 
480 IFYX=YX<CA > ANDXX=X‘/.<CA )THENF=3 : NEXTF 
:GOTO700 s REM HIT 

490 C=C+1: IFC$<C) = ""0RC = 51THENC = 1: YZ=YX< 
CN> s XX=X!X<CN):GOTO550 

500 DU=30 s L0=100:FORHI=25TO30:GOSUB5350: 
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NEXTHI,F:GOSUB300:G0TO410 

550 POKESS+OS,80:POKECM+OS,1:PRINTSC$"YO 
U MISSED!"JGOSUB5310 

560 FORA =1TO 10:POKE53280,0:FORA 1 = 1TO50:N 
EXT:POKE53280,1:FORA 1 = 1TO50:NEXTA1 
570 P0KE54296,16-A:NEXTA:POKE53£80,10 
590 OS=40*Y%<CN>+XX<CN):G0SUB5365 
600 F =3:NEXTF:GOSUB5300:GOTO230 
693 REM 

699 REM ** ENEMY CITY DESTROYED ** 

700 IFSC = 9THENTD =1 

705 G0SUB5310:POKESS+AP,RC:POKECM+AP,CC 
710 FORA =1TO10:POKE53280,0:FORA1 = 1TO50:N 
EXT:POKE53280,1:FORA 1 = 1TG50:NEXTA1 
720 P0KE54296,16-A:NEXTA:POKE53280,10 
730 PRINTSC*A*<CA> " HAS BEEN DESTROYED 11 : 
A < C A > = 1 

740 G0SUB5365 : AP =X/.(CA ) +YY. ( CA ) *40 : POKESS 
+AP,80:POKECM + AP, 1:FORA=1 TO 1000:NEXT 
750 GOSUB5300:IFTD=0GOTO£00 
760 REM ** YOU GOT THEM ALL ** 

765 SK=SK-5:IFSK\30THENSK=30 

770 GOSUB5300:PR INTSC$"YOU INHERIT A DEV 

ESTATED WORLD.":GOSUB6000:GOTO3010 

£999 REM + ** WHOOPS! YOU'VE HAD IT *** 

3000 POKESS +AP,30:POKECM+AP,7:GOSUB5470 

3010 FORA = 1TO20:GETQ$ fNEXT 

3020 GETQ$:IFQ$=""GOTO3020 

3025 FORA = 54£72TG54£95:POKEA,0:NEXT:POKE 

54296,8:GOSUB5300 

3030 PR INTSC*"WANT TO TRY AGAIN?" 

3040 GETQ$:IFQ$<>"Y"ANDQ$<>"N"GOTO3040 

3050 IFQ$ ="N"THENG0SUB5100:END 

3060 P0KE532S1,10:PR INT"LETHE CITIES ARE 

sBT 

3070 FORA = 1TO 10:PR INTA*<A>:A<A>=0:NEXT 
3080 G0SUB7120:SC=0:TD=0:GOTO200 

4999 REM *** INITIALISATION *** 

5000 P0KE56334,PEEK(56334 > AND254 : POKE 1 ,P 
EEK <1)AND251:REM K/B & I/O OFF 

5005 CS=£0480:C1=53248 

5010 FORA =0TO63:FORA 1=0TO7:0S=A*8+A1 
5020 POKECS+OS,PEEK<Cl+OS):POKECS+OS+102 
4,PEEK(C1+OS + 1024 >:NEXTA1,A 
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5030 POKE 1,PEEK <1)0R4sPOKE56334,PEEK <563 
34)OR1s REM K/B & I/O ON 

5040 P0KE53272,(PEEK <53272)AND240)0R4 
5045 RETURN 

5050 FORA =65TO80sFORA 1=0TO7:READB 
5055 POKE20430 + < 8 *A > +A1,BsNEXTA1,A 
5070 P0KE648, 64 sP0KE56576,<PEEK<56576>AN 
□252)0R2 

5075 P0KE53272,(PEEK <53272)AND 15 > 

5080 RETURN 

5098 REM *** RESET EVERYTHING *** 

5100 P0KE648,4:P0KE56576,<PEEK<56576>AND 
252)0R3 

5 110 P0KE53272,21 SPRINT"J" ; :P0KE54296,0: 
RETURN 

5200 PR I NTT AB <5 ) "STRESS RETURN* TO CONT 
INUE" 

5210 GETQ$: IFQ3K >CHR$<13)GOTO5210 
5220 PR INT"□ 

□ " :RETURN 

5299 REM *** CLEAR BOTTOM OF SCREEN *** 

5300 PRINTSC^;:FORA=1T079SPRINT" ";:NEXT 
sPRINTSC^sRETURN 

5309 REM ** 5310-5390 SOUND ROUTINES 

5310 P0KE54272,73 s P0KE54273,4 s PQKE54278, 
128 s P0KE54277,140sP0KE54276,129SRETURN 
5350 P0KE54272,LOs P0KE54273,HIs P0KE54278 
,249:P0KE54277,15s POKES4276,17 

5360 FORA=lTODUsNEXT 

5365 FORA =0TO7 s P0KE54272+A,0 s NEXTs RETURN 
5370 FORA = 0TO7:P0KE54279+A,0 sNEXTs RETURN 
5375 FORA=0TO7s P0KE54286+A,0: NEXTs RETURN 
5380 F0KE54272,184 s P0KE54273,4 s P0KE54277 
,16 s POKE54278,249s P0KE54276,129 
5330 P0KE54296,15sRETURN 

5399 REM *** LIGHTS *** 

5400 FORA = 35TO5STEP- 1:PQKE53281,10SP0KE5 
3280,1s FORA 1 = 1TOA sNEXTA1sP0KE53281,1 

54 10 POKE53280,10sFORA 1 = 1TOAsNEXTA1,AsPO 
KE53281,6sRETURN 

5450 FORA = 512TO40STEP-1s OS =INT < RND < TI>* 1 
000+1> s POKESS+OS,160 s POKECM+OS,1 

5451 P0KE54296,INT<A/32)sNEXT 
5453 P0KE5328 1 ,0 s PRINT"J"; 
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5455 F0RA = lTQ£4:PRINT"gJ 

";:NEXT 

5460 PRINTSC$"M NO SECOND CHANCES....® 
":RETURN 

5469 REM *** DESTRUCTION SEQUENCE *** 

5470 PGKE542S5,128:P0KE54284,240:P0KE542 
79 ,100 » POKE54280,50:P0KE54283,129 

5475 FORA =190TO8STEP-2:POKE54280,A:FORA 1 

=1TO50:NEXTA1:NEXTA:GOSUB5370:GOSUB5400 

5480 GOSUB5380:GOSUB5450:POKE54£72,31:PO 

KE54273,4 1:P0KE54£78,128 

5490 P0KE54277,£40:P0KE54276,129 

5500 P0KE54296 , PEEK < 54296 )0R68 : P0KE54293 

, 4 s P0KE54294,10 

5510 P0KE54295,1-’RETURN 

5999 REM *** DETESTATION *** 

6000 FORA = 0TO£3:P0KE54272+A ,0:NEXT 

6010 POKE54286,5:POKE54290,16:P0KE54275 , 

1s P0KE54296,143:P0KE54278,240 

6020 P0KE54278,240 : P0KE54276,1£9:FR=1438 

9:GOSUB5500 

6030 FORT=1TO600:GOSUB6100:NEXT 

604 0 HF =HF-1:P0KE54273,HF:FORA =1TO40:NEX 

T: IFHF >1GOTO6040 

6050 G0SUB5365:G0SUB5375:P0KE54296,3:RET 
URN 

6 100 FQ=FR+PEEK <54299)*45:HF =INTCFQ/256) 
:LF=FQ-HF*256 

6110 P0KE54272,LF:P0KE54273,HF:RETURN 

6999 REM *** INSTRUCTION PAGES ETC *** 

7000 PR I NT" LKSfitTH IS IS THE 3RD AND FINAL 
SECTION IN THES"; 

7005 PR I NT 11 SER IES OF EVOLUTION PROGRAMS. 

It 

7010 PRINT n aiffigTHIS ONE INVOLVES A NUCLEA 
R WAR, WHERE " 

7015 PRINT"SrOU CAN PLAY THE PART OF P.M 
. OF ANY OF" 

7020 PR I NT "BJTEN SUPERPOWERS WHICH MAY EX 
1ST IN £002" 

7025 PR INT"H< THE YEAR IN WHICH THIS WAR 
TAKES PLACE)" 

7030 PR INT"gSSJTHE OBJECT IS TO PROGRAM CR 
UISE MISSILES"; 
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7035 PR I NT "UTTO HOME IN ON YOUR ENEMIES C 
APITALS. "s GOSUB5000:GO3UB5200 
7040 PR I NT " Kim IN £002 THE WORLD IS NOT 
VERY DIFFERENT" 

7045 PR INT"FROM 20 YEARS AGO, APART FROM 
THE NEW" 

7050 PR INT" B3UPERFOWERS NOW EXISTING. SO 
UTH AMERICA" 

7055 PR INT"SHAS BEEN OVERRUN BY BRAZIL, 
AND ITS" 

7060 PR I NT "CAPITAL IS BRASILIA. JAPAN H 
AS BECOME" 

7065 PR INT"HA POWERFUL NATION, AND THE A 
RAB STATES" 

7O70 PR INT" gHAVE BECOME UNIFIED AROUND A 
CAPITAL," 

7075 PR INT"SF IYADH. AUSTRALIA AND SOUTH 
AFRICA HAVE" 

7080 PR I NT" BALSQ RISEN TO BE SUPERPOWERS 
B" :GOSUB5200:GOSUB5050 

7085 PRINT" J"CHR*( 142) "HENTER A SKILL L 
EVEL (30-100)" 

7080 INPUT"a<30 IS HARDEST) IW+iMl" ; SK$ 
7100 IFSK#="*"GOTO7085 

7105 SK=VAL(3K#):IFSK<30ORSK>100GOTO7085 
7 107 PRINT"jgTHE CAPITAL CITIES ARE: B" 

7 110 FORA =1TO10:READA# ( A ),XX(A),Y%(A):PR 
I NT A $ (A ) :A(A)=0:NEXT 

7 120 PR I NT "MIN WHICH CAPITAL DO YOU WAN 
T TO BE P.M.B" 

7130 INPUT"(TYPE FIRST TWO CHARACTERS) m 

ll*igoo";cp# 

7140 IFCP#="*"THENG0SUB5100:END 
7150 FORA =1TO 10i IFLEFTS<CP#,2)<>LEFT#(A$ 
(A),2)THENNEXTAiPR INT» rTYTT 1 :GOTO71£0 
7160 CN=A:XX=XX(A):YX=YX(A):CP#=A$(A):A= 
10:NEXTA 

7200 PR I NT" LiBJ'r'OU PROGRAM YOUR MISSILES B 
Y COMPASSB" 

7205 PR INT"DIRECTIONS (IE N,S,E,W). THE 
WORLD MAPB" 

7210 PR INT"DIV IDED INTO SQUARES, AND EAC 
H STEP OF" 

7215 PR I NT" gTTHE PROGRAM MOVES THE MISSIL 
E ONE SQUARE" 
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7220 PR INT"E . G . 'NNEES 1 MOVES THE MISSIL 

E UP 2,a- 

7230 PR INT"RIGHT 2, DOWN 1 . M" 

7235 PRINT"^IF THE MISSILE GOES OFF THE 
SCREEN ITM" 

7240 PR INT"WILL REAPPEAR ON THE OPPOSITE 
S IDE . 29" 

7250 PR INT"3THE RED SQUARE IS YOUR TARGE 
T.S" 

7260 PR INT"RENTER YOUR COMMANDS AS FAST 
AS POSSIBLE SAND PRESS ’F' TO LAUNCH..." 
7270 GOSUB5200 

7300 POKE53280,10;POKE53231,6 

7308 REM **** WORLD MAP **** 

7309 REM ** KEYS ARE SHIFTED E-0 ** 

7310 print !, lh -rsri i \/ - 
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7405 PRINT"-1 | \-1__\- 



7420 PRINT"-1 "; : FORA 1 = 1 T039 : PR I 

NT"—'; sNEXTAl 

7425 PRINT" |- 


-II ■ 

r 

7430 RETURN 

10000 DATA8,8,28,8,8,62,0,0,0,32,36,62,3 

6,32,0,0,0,62,8,8,28,8,0,0,0 

10010 DATA2,18,62,18,2,0,0,128,123,128,1 

28.128.128.128.255 

10020 DATA 127,127,99,93,89,127,127,0,127 

,127,127,127,127,127,127,0 

10030 DATA255,254,190,188,152,128,128,25 

5,128,128,128,152,138,190,254 ,0 

10040 DATA 128,224,240,248,248,240,192,25 

5.129.131.143.159.159.135.131.255 

tG050 DATA255,19 1,159,159,143,131,129,25 

5,127,126,120,112,1 12,96,64,255 

10060 DATA©,64,112,120,124,124,127,0,129 

,131,131,143,159,191,191,192 

10065 DATA24,126,255,255,90,24,24,60 

10070 DATA"LONDON",18,6,"MOSCOW",23,5,"B 

ONN",20,6,"WASHINGTON",9,7 

10080 DATA"BRAS ILIA",13,13,"TOKYO",34,8, 

"RIYADH",23,9,"CANBERRA",35,16 

10090 DATA"PEKING",31,8,"PRETORIA",21,15 
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Have you got your History Exams coming up soon? Or do you just need 
to freshen up your historical knowledge? This is just the program for 
you. Clues are provided (by request) but if you can’t do it you can always 
ask for the answers. All the dates are from King Canute onwards (if you 
know when that was!) and concern English history only. If the computer 
can’t find an exact match for the dates it needs to fill the square of dates 
it will give you an anniversary of an historical event instead. 

1 REM*** 64 VERSION *** 

10 REM HISTORYCROSS. . . . WALWYN 
15 REM DATA STORED FROM LINES 1000- 
£0 GOSUB7000 
£5 GOSUB9000 

30 REM C <£) IS THE ADDITION CHECK FIGURE 
3£ DIM C<£> 

40 C<0)=50iC<1)=5:C<£)=1 

45 REM R*<15> ARE THE ANSWER SQUARES 

50 REM N$<?) ARE THE EIGHT DATES 

55 REM Q*<7> ARE THE EIGHT CLUES 

60 REM A(7) IS USED IN THE SET-UP 

85 REM D(7) IS A CHECK FOR WHICH CLUE HA 

S BEEN DONE 

70 DIM R$<15),N$<7>,Q$<7>,A<7),D<7> 

80 H =0 

90 g$= 

100 PRINT"J"U9$;:POKEUG, UF;PQKEUB, U£ 

10£ PR INT " H ISTORYCROSS . . . PLEASE PRES 
S ANY KEY*" 

105 K=RND <1>:GETA*i IFA$=""THEN105 

110 PRINT"8FLEASE WAIT WHILE I SET UP YO 

UR 

1£0 PR INT"HISTORICAL PUZZLE AT RANDOM." 

130 PRINT"HTHIS WILL TAKE ABOUT ONE MINU 
TE BECAUSE 

140 PRINT"I NEED TO SLOT SIX DATES TOGET 
HER WITH 

145 PRINT"THEIR RESPECTIVE CLUES, SO HHN 
G ON...." 

£00 REM ORGANISE 8*F0UR FIGURE NUMBERS 
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2 12 FORN=0TO7:D<N>=0:A<N>=0:N$<N)="" :Q$< 
N)="":NEXTN 

214 D<0>=1:D<4>=1:N*<0)="1111":N$<4)="11 
1 1 " 

215 D=2 

220 P=INT<RND<1> *8 >sIFD<P)=1THEN220 

221 print 11 i 'm now working on 

DATE NUMBER:a"D-1"«)" 

222 X=0:Z*=""!Z =0:R =INT < RND(1>*200+1 >:GO 
TO230 

225 R=INTCRNDC1)*5+2) 

230 FORJ=lTOR:READN$,Q$:IFN$="END"THENRE 
STOREiREADN$, Q$ 

235 NEXTJ 

240 N$="1"+N*>:N=VAL<N40:NN*=N$ 

260 REM CHECK THIS HAS NOT APPEARED ELSE 
WHERE 

264 FORJ=0TO7:IFA<J>=NTHEN330 
268 NEXTJ 

270 IFZ <25THEN300 

271 REM TOO MANY TRIES...TIME FOR A NEW 
APPROACH! 

272 N$=Z$:IFZ<50THEN275 

273 IFN>XTHENC=N-X:GOTO290 

274 IFX >NTHENC = X-N:GOTO280 

275 FORE =0TO2 

276 FORK=1TO10!C=K*C(E> 

277 IFN-C=XTHEN290 

278 IFN+C=XTHEN280 

279 NEXTKsNEXTE:GOTO330 

280 Q$="< >"+RIGHT$<STR$<C),LEN<STR$<C>)- 
1 > + " + " +Q* 

285 GOTO340 

290 Q$="< >"+RIGHT$<STR$<C> ,LEN(STR*KC> >- 
1>+"-"+Q$ 

295 GOTO340 

300 REM CHECK IF IT FITS IN THE CROSSNUM 
BER GRID 

305 PP=P+1: IFPP>4THENPP =PP-4 
310 FORK =1T04 

3 13 IFP < 4THENL = K + 3 
315 IFP >3THENL=K~1 

3 17 I FD <L > =0THEN325 

320 IFMID$<N$,K,1>< >MID$<N$<L>,PP,1>THEN 
330 
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325 NEXTK:GOTO340 
330 REM TRY AGAIN 

332 Z=Z + 1 : IFZ<>£5THEN££5 

333 Z$="":F0RK=1T04 

334 IFP<4THENL=K+3 

335 IFP >3THENL=K-1 

336 IFD<L>=0THENZ$=Z$+RIGHT$<STR$<INT(RN 
D< 1 )*10)) , 1 ):G0T0338 

337 Z$=Z*+MID$<N$<L),PP,1> 

338 NEXTK 

339 X=VAL<Z$):G0T0££5 

340 D < P ) = 1:D =D +1:N3KP)=N$:Q$(P)= Q$ 

350 A<P)=VAL<NN$> 

360 IFD < 3THEN220 

380 FORJ=0TO15:R$<J)=" " :NEXTJ:H = H+1 
400 REM FINISHED. NON FOR THE PUZZLE: 

405 PRINTUU$;"J HISTORYCROS 

S #"H 

415 FORJ=0TO3:R$<J)="1":NEXTJ 

420 FORJ = 4T012STEP4: R$(J) = "1":NEXTJ 

450 PRINTUES; "SfEF 

460 PRINTTAB <16)" ABC 

465 PRINT 

470 PRINTTAB<16)" ^ 

475 PRINTTAB<16)" a M M H " 

480 PRINTTAB<16)"D a 

485 PRINTTAB<16)" J | i 1 " 

490 PRINTTAB<16)"E a 

495 PR INTTAB < 16 ) " a m M H " 

500 PRINTTAB<16)"F a 

505 FORK=1TO50:NEXTK 

510 FORL=1TO50:NEXTL 

515 FORL=0TO3 

520 FORK = 0TO3 

525 IFR$<L*4+K>=""THEN540 

530 PRINTLEFT$<G$,L*£+5);TAB <K*£ + 18 ) "a"R 

$<L*4+K ) 

540 NEXTK 
550 NEXTL 

650 PRINTU3*;" TO GET A CLUE, PRESS LINE 
LETTER <A-F)" 

655 PRINT" <IF YOU'VE FINISHED, PRESS ' 
RETURN'>" 
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660 GETA$sIFA$<>""THEN660 
670 GETA*sIFA$=""THEN670 

680 IF <ASC<A$X7 1ANDASC<A$> >64)THEN700 
685 IFASC(ASO = 13THEN900 
690 GOTO660 

700 PRINTU9*; "HflCLUE TO LINE 

710 X=0:B=0:Z=0:J=ASC<A*>-64sIFJ>3THENJ= 

J + l 

715 Q$=Q$CJ) 

720 FORK =1TOLEN(Q$ ) 

730 B*=MID$CG$,K,1) 

735 IFZ = 1THEN790 

740 IFK=2ANDB*=">"THENZ=1!GOTO780 
750 IFK=1THEN780 
755 IFK<>2THEN765 

757 B = VAL <B$) s IFB = 0THENPRINT"THE ";:GOTO 
780 

758 IFB =1THENPRINT"THE NAVAL BATTLE OF " 
;:G0T0730 

759 IFB = 2THENPRINT"THE BATTLE OF "; :GOTO 
780 

760 IFB=5THENPRINT"THE ACCESSION TO THE 
THRONE OF KING":GOTO780 

761 IFB=6THENPRINT"THE ACCESSION TO THE 
THRONE OF QUEEN" sGOTO780 

762 IFB=7THENPRINT"THE END OF THE REIGN 
OF KING":GOTO780 

763 IFB = 8THENPRI NT"THE END OF THE REIGN 
OF QUEEN"SGOTO780 

764 GOTO780 

765 IFB$="*"ANDB>6THENX=10 

766 IFB$="*"ANDB >0ANDB< 3THENX=X +1 

767 IFX=1THENPRINTSPRINT"WHEN ";:X=X+1:G 
OTO780 

768 IFX=3THENPRINT" BEAT ";:X=X+1:G0T07S 
0 

769 IFX = 5THENPRINTs PRINT"AND "; :X=X+1:GO 
TO7S0 

770 IFX=10ANDB = 7THENPRINTs PRINT"CHE WAS 
"; :X=X + 1s GOTO780 

77 1 IFX= 1 0ANDB = 8THENF'R I NTs PR INT" CSHE WAS 
"; s X = X +1s GOTO780 
775 PRINTS^; 

780 NEXTK 
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782 IFX =6THENPRINT" WAS K ILLED. ":G0T073S 
784 IFX= 11THENPRINT").":G0T0788 
786 PRINT"," 

788 GOTO800 

790 I FB* ="+"THENPRINT" YEARS AFTER":Z=0: 
G0T0797 

792 I FB*= " - " THENPR I NT 11 YEARS BEFORE" :Z=0 
iG0T0797 
794 PRINTS*; 

796 GOTO780 

797 G*=RIGHT*<Q*<J>,LEN<G*)-K>:GOTO720 
800 REM 

810 PRINTU7*;"gJYEAR? <IF YOU DON'T KNOW 
THEN **♦*) 

815 INPUTA* 

820 I FA*=""ORLEN<A*)< >4THENPRINT; :GOT 
0815 

830 IFJ >3THEN850 
835 FORK =1T04 

840 R*<J+<K-1>*4>=MID*<A*,K,1> 

845 NEXTK:GOTO880 
850 FORK =1T04 

855 R*< <K-1> + <J-4>*4>=MID*<A*,K„1> 

360 NEXTK 
880 GOTO400 

900 PRINTU7*;"BSO YOU THINK YOU'VE GOT I 
T RIGHT?" 

910 PR INT"LET ME CHECK..." 

920 FORJ =0TO7 
930 FORK =1T04 
935 IFJ >3THEN950 

940 IFR*<J+<K-1>*4>< >MID*<N*<J> ,K, 1)THEN 
980 

945 GOTO960 

950 IFR*< <K-l) + (J-4)#4)OMID$<N$(J),K,l> 

THEN980 

960 NEXTK 

965 NEXTJ 

970 PR INTUU*; "SWELL DONE ... YOU FINISHED 
IT" 

975 PR INT"MOTHER GO? <Y/N)" 

976 GETA*:IFA*<>""THEN976 

977 GETA*:IFA*=""THEN977 

978 IF A*="Y"THENGOTO100 
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979 PR INTUE$"THANKYOU FOR PLAYING. . .GOOD 
BYE n :END 

980 REM INCORRECT ANSWER 

985 PRINTUE$"HNO! YOU'VE GOT IT WRONG." 

987 PRINTUE$"3DO YOU NEED HELP (Y/N) ?" 

988 GETA$:IFA$<>""THEN983 

989 GETA$:IFA$ =""THEN989 

990 IFA$="Y"THENG0T0992 

991 GOTO400 

992 Z =0 '• PR I NTUU$; "fiJHERE ' S THE CORRECT AN 
SWER.... 

993 PRINTLEFT$(G$,18) 

994 FORJ=4T07:PRINTTAB <32 >"a"N$(J) 

995 NEXTJ 

996 G0T0975 

999 END 

1000 REM HISTORY DATES DATA 
1010 REM PREFIX NUMBERS.... 

1012 REM 10=MISCEL. 

1013 REM THIS SHOULD NOT HAVE A 'THE' IN 
FRONT 

1015 REM 11=NAVAL BATTLE 

1016 REM 11 AND 12 MAY CONTAIN THREE AST 
ERISKS: 

1017 REM THE FIRST MARKS THE VICTOR 

1018 REM THE SECOND MARKS THE LOSER 

1019 REM THE THIRD IS FOR A FIGURE WHO W 
AS KILLED. 

1020 REM 12 =LANO BATTLE 

1035 REM 15 =START OF REIGN (KING) 

1040 REM 16=START OF REIGN (QUEEN) 

1045 REM 17 =END OF REIGN (KING) 

1047 REM 17 AND 18 MAY CONTAIN ONE ASTER 
ISK 

1048 REM FOR DETAILS OF HOW THE MONARCH 
LEFT THE THRONE. 

1050 REM 18=END OF REIGN (QUEEN) 

1060 REM ALWAYS PUT THE CLUE DATA AFTER 
A 2 FIGURE NUMBER. 

1065 REM DATA LINES CONTAIN THE YEAR (MI 
NUS THE LEADING 1) 

1070 REM AND THEN HAVE THE CLUE DATA ON 
THE SAME LINE. 

1100 REM DATA STARTS HERE 
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1110 DATA 11 0 16 " , " 15CANUTE " 

1115 DATA "035","17CANUTE" 

1120 DATA "066" , " 12HASTINGS*THE NORMANS* 
THE ENGLISH*KING HAROLD" 

1130 DATA "086","10RELEASE OF THE DOMESD 
AY BOOK" 

1140 DATA "087" , " 17LJILLIAM THE FIRST" 
1150 DATA "087 " , " 15UJILL I AM THE SECOND" 
1160 DATA "100","1TWILL I AM THE SECOND" 
1170 DATA "100" , " 15HENRY THE FIRST" 

1180 DATA "135","17HENRY THE FIRST" 

1190 DATA "135" , " 15STEPHEN" 

1800 DATA "154" , "17STEPHEN" 

1810 DATA " 154" , "15HENRY THE SECOND" 

1880 DATA "164","1©CONSTITUTIONS OF CLAR 
ENDON" 

1830 DATA "189","15RICHARD THE FIRST" 
1840 DATA " 139","17RICHARD THE FIRST" 
1850 DATA "1S9","15JOHN" 

I860 DATA "815","10MAGNA CARTA" 

1870 DATA "816","17JOHN" 

I860 DATA "816","15HENRY THE THIRD" 

1890 DATA "865","12EVESHAM*EDLIARD*SIMON 
DE MONTFORT" 

1300 DATA "878","17HENRY THE THIRD" 

1310 DATA "878" , " 15EDLIARD THE FIRST" 

1380 DATA "307","17EDWARD THE FIRST" 

1330 DATA "307","15EDWARD THE SECOND" 
1335 DATA "314","1£BANNQCKBURN*THE SCOTS 
*THE ENGLISH" 

1340 DATA "387" , " 17EDLIARD THE SECOND" 
1350 DATA "387" , " 15EDI/JARD THE THIRD" 

1358 DATA "346","18CRECY*THE ENGLISH*THE 
FRENCH" 

1360 DATA "349","10BLACK DEATH" 

1370 DATA "377","17EDNARD THE THIRD" 

1380 DATA "377","1SRICHARD THE SECOND" 

1390 DATA "381","1©PEASANTS' REVOLT" 

1400 DATA "399","17RICHARD THE SECOND*DE 
POSED" 

1410 DATA "399","15HENRY THE FOURTH" 

1480 DATA "413","17HENRY THE FOURTH" 

1430 DATA "413","15HENRY THE FIFTH" 

1440 DATA "415","12AGINCOURT*THE ENGLISH 



History Cross 107 


♦ THE FRENCH" 

1450 DATA "4££","17HENRY THE FIFTH" 

1460 DATA "4££","15HENRY THE SIXTH" 

1470 DATA "461","17HENRY THE SIXTH*DEPOS 
ED" 

1480 DATA "46 1 " , " 15EDWARD THE FOURTH" 
1490 DATA "471","l£BARNET*YORK^LANCASTER 
♦WARWICK" 

1500 DATA "483 " , " 17EDWARD THE FOURTH" 

15 10 DATA "483 M ,"15RICHARD THE THIRD" 
15£0 DATA "485" , " 1£BOSWORTH*HENRY^RICHAR 
D" 

1530 DATA "485","17RICHARD THE THIRD" 
1540 DATA "485""15HEW3Y THE SEVENTH" 
1550 DATA "509","17HENRY THE SEVENTH" 
1560 DATA "509","15HENRY THE EIGHTH" 

1570 DATA "513","l£FLODDEN FIELD*THE ENG 
LISH*THE SCOTS" 

1580 DATA "547","17HENRY THE EIGHTH" 

1590 DATA "553","16MARY" 

1595 DATA "558","18MARY" 

1600 DATA "558","16ELI2ABETH THE FIRST" 
1610 DATA "588","10DEFEAT OF THE SPANISH 
ARMADA" 

16£0 DATA "603","18ELI2ABETH THE FIRST" 
1630 DATA "603","15JAMES THE FIRST" 

1640 DATA "605" , " 10GUNPOUIDER PLOT" 

1650 DATA "6£5","17JAMES THE FIRST" 

1660 DATA "6£5","15CHARLES THE FIRST" 

1670 DATA "64£","10START OF THE ENGLISH 
CIVIL WAR" 

1680 DATA "648","l£PRESTON*CROMWELL*THE 
SCOTS" 

1690 DATA "649","17CHARLES THE FIRST*EXE 
CUTED" 

1700 DATA "658 " , " 1 ©DEATH OF OLIVER CROMkl 
ELL" 

1710 DATA "660 " r "15CHARLES THE SECOND" 
17£0 DATA "665 " r "10GREAT FIRE OF LONDON" 

17£5 DATA "685" , " 17CHARLES THE SECOND" 
1730 DATA "685","15JAMES THE SECOND" 

1740 DATA "688"10'GLORIOUS REVOLUTION' 

II 

1750 DATA “ 694 11 , “ 10BANK OF ENGLAND ESTAB 
LISHED" 
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1760 DATA "702","16ANNE" 

1770 DATA "704","12BLENHEIM*THE DUKE OF 
MARLBOROUGH*THE FRENCH" 

1780 DATA "713","10PEACE OF UTRECHT" 

1790 DATA "714","15GE0RGE THE FIRST" 

1800 DATA "727","17GE0RGE THE FIRST" 

1810 DATA "727","15GE0RGE THE SECOND" 
1820 DATA "745","12CULL0DEN*THE ENGLISH* 
THE SCOTS" 

1830 DATA "757","12PLASSEY*CLIVE OF INDI 
A*THE FRENCH" 

1840 DATA "759","12QUEBEC*THE BRITISH*TH 
E FRENCH*6EN. WOLFE" 

1850 DATA "760","17GE0RGE THE SECOND" 
I860 DATA "760","15GE0RGE THE THIRD" 

1870 DATA "765","10STAMP ACT" 

1880 DATA "773","10BOSTON TEA PARTY" 

1890 DATA "776","10AMERICAN DECLARATION 
OF INDEPENDENCE" 

1900 DATA "777","12SARAT0GA*THE AMERICAN 
S*THE BRITISH" 

1910 DATA "781 " , " 1 1ST. VINCENT*THE BRITI 
SH*THE FRENCH" 

1920 DATA "781","10Em OF THE SIEGE OF Y 
ORKTOWN" 

1930 DATA "783","10END OF THE WAR OF U.S 
. INDEPENDENCE" 

1940 DATA "789","1©STORMING OF THE BASTI 
LLE" 

1950 DATA "793","17L0UIS THE SIXTEENTH*G 
U ILLOTIhflED " 

1960 DATA "798","11THE NILE *ADMIRAL NELS 
ON*THE FRENCH" 

1970 DATA "802","10PEACE OF AMIENS" 

1980 DATA "805","11TRAFALGAR*ADMIRAL NEL 
SON*THE FRENCH*NELSON" 

1990 DATA "806","12JENA*THE FRENCH*THE P 
RUSSIANS" 

2000 DATA "809","12WAGRAM*THE FRENCH*THE 
AUSTRIANS" 

2010 DATA "812","12B0R0DINO*THE FRENCH*T 
HE RUSSIANS" 

2020 DATA "813","12LEIP2IG*THE ALLIES*TH 
E FRENCH" 
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2030 DATA ”815" , u 12WATERL00*THE ALL IES*T 
HE FRENCH" 

2999 DATA "END","*" 

7000 REM ** ******** ** * ** *** * * ** ** * * 4c 4c 
7002 REM COLOUR CODES FOR COMMODORE 64. 
7005 REM (ONLY USE THESE COLOURS) 

7010 U0=0:U0$="a H :REM BLACK 

7020 Ul = l:U1$="J" SREM WHITE 

7030 U2 = 2 s U2$= n (i" s REM DARK RED 

7040 U3=5 s U3$= "li" : REM GREEN 

7050 U4 =6:U4$="3":REM DARK BLUE 

7060 U5=8:U5$ ="":REM ORANGE 

7070 U6=9:U6*="R" :REM BROWN 

7080 U7=10:U7$="® H :REM PINK 

7090 U8=13sU8*= H i|" SREM LIGHT GREEN 

7100 U9=14 s U9$ ="U":REM LIGHT BLUE 

7110 UU=4 :UU$= ,, i" SREM PURPLE 

712© UR= 12 : UR$ = "y : REM LIGHT GREY 

7130 UE=7:UE^="n"SREM LIGHT YELLOW 

7140 UF =11s UF$ ="0":REM DARK GREY 

7200 REM SCREEN 'POKE' CODES FOR 64. 

7210 US=1024SREM SCREEN POKE CHARACTER 
7220 UC=55296 s REM SCREEN POKE COLOUR 
7230 UG=53281:REM BACKGROUND COLOUR 
7240 UB=53280SREM SCREEN BORDER COLOUR 
7300 REM SOUND 'POKE' CODES FOR 64. 

7310 UV=54296 s REM VOLUME FOR 3 VOICES 
7320 UA=54277 s REM ATTACK FOR VOICE 1 
7330 UD=54278 s REM SUSTAIN FOR VOICE 1 
7340 UH=54273 s REM HIGH BYTE FOR VOICE 1 
7350 UL =54272 s REM LOW BYTE FOR VOICE 1 
7360 UW=54276 s REM WAVEFORM FOR VOICE 1 
7400 RETURN 

7500 REM ***************************** 
9000 PRINTUU$;"J HISTORYCRO 

SS" 

9010 PR INT"HTHIS IS A 'CROSS-NUMBER' PUZ 
ZLE MADE 

9020 PR INT"UP OF DATES FROM BRITISH HIST 
ORY. 

9030 PR INT"FIRSTLY I SHALL SIFT THROUGH 
THE DATA 

9040 PR INT"BANK AND CROSS MATCH RESPECTI 
VE DATES." 
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9050 PR INT"SOMETIMES I WILL NOT BE ABLE 
TO FIND AN" 

9060 PRINT"EXACT MATCH AND WILL THEN LOO 
K FOR 

9070 PRINT"ANNIVERSARIES AND 'NEAR MISSE 
S'." 

9080 PR INT"AT THE LAST RESORT, I SHALL 6 
IVE YOU A 

9090 PRINT"MATHEMATICAL CLUE." 

9100 PRINTU9S; " ^PROGRAMMERS NOTE:" 

9105 PRINT"AT PRESENT, I'VE INCLUDED LOT 
S OF DATES 

9107 PRINT"FROM CANUTE TO WATERLOO BUT Y 
OU MAY 

9110 PR INT"CHANGE OR ALTER THE DATES DAT 
A FROM 

9 120 PR INT"LINES 1000- ONWARDS IF YOU WI 
SH. 

9 130 PR INT"HTHE CLUE DATA IS ALWAYS PREC 
EEDED BY A" 

9140 PRINT"TWO FIGURE CODE NUMBER." 

9150 PRINT"SEE 'REM' STATEMENTS IN THE L 
ISTING FOR 

9160 PRINT"FURTHER DETAILS." 

9990 PRINT" SUPPRESS ANY KEY TO CONTINUE" 

9995 GETA$:IFA$<>""THEN9995 

9996 GETA$:IFA$=""THEN9996 
9937 RETURN 


Blitz 


You are being shot at by an enemy plane which has broken through your 
defences. Your missile launchers must try to stop it from wiping out 
your base. Not an easy task! 


5 REM BLITZ.„ WALWYN 

10 GOSUB63900 
1 1 P0KEUG,U6SPRINT"iJ"U9T; 

1£ PR INT"THIS IS A GAME OF SURVIVAL CALL 
ED 

14 PR I NT "H WmmmLITZmmm. 

18 PR I NT" 131T IS REALLY TL10 GAMES IN ONE 
SINCE" 

20 PR I NT" SEJYOU MAY CHOOSE WHICH SIDE TO 
BE. . . 

£2 PR INT" gF ITHER A BOMBER OR GROUND DEFE 
NCES. 

24 PR I NT"B AS A BOMBER , EACH TIME YOU P 
RESS '2 ' , 

26 PR INT"YOU DIVE & EACH TIME ’8' , YOU 

CLIMB. 

£8 PR INT"BOMBS ARE RELEASED AT A RANDOM 
BUT LOW 

30 PR INT"HE IGHT. WHEN ALL BOMBS ARE DROP 
RED, " 

31 PRINT"YOU WILL CLIMB MUCH FASTER. BE 
CAREFUL" 

32 PR INT"NOT TO CRASH INTO THE TOP OF TH 
E SCREEN!" 

33 PR INT"BONCE YOU HAVE BEEN HIT, YOU WI 
LL HAVE" 

34 PR INT"NO CONTROL OVER YOUR AIRCRAFT A 
ND WILL" 

35 PR INT"CRASH ANYWHERE!" 

40 PRINT" aKT-RESS ANY KEY 

4 1 GET AT: IF AT=" " THEN 4 1 

44 P R I NT " kJA S THE ANTI-AIRCRAFT PLAYER, 

45 PR INT"YOUR GUNS OPEN FIRE WHENEVER YO 
U PRESS 
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46 PRINT"THEIR NUMBER. THE SHELL BURSTS 
ARE 

47 PR INT"EFFECTIVE FOR APPROX. 8 SECONDS 
AFTER 

48 PRINT"EXPLOSION. 

48 PR INT"EACH ENEMY AIRCRAFT NEEDS TO BE 
H IT 

50 PR INT"TWICE TO EXPLODE OTHERWISE <WIT 
H 1 HIT) 

51 PRINT"IT WILL CRASH CAUSING MUCH DAMA 
GE ! 

52 PRINT"EflBEACH AIRCRAFT CARRIES 10 BOMB 
S AND WILL" 

54 PR INT"BE REPLACED BY ANOTHER PLANE WH 
EN ALL" 

55 PRINT"ITS BOMBS ARE DROPPED." 

56 PR I NT" HTHE HEIGHT OF EACH SHELL BURST 
CAN BE " 

57 PR I NT"STOPPED BY PRESSING NUMBER '0' 
OR" 

58 PRINT"FIRING OFF ANOTHER GUN." 

59 PR I NT" UJSS/JH AT DO YOU WISH TO BE? 

60 PRINT"aPRESS 'A' FOR AIRCRAFT , 1 G' F 

OR GROUND" 

62 INPUT A$ 

63 V = 0: IF A$="A"THEN V=l:G0T065 

64 IFASK >"G"THEN62 

65 PRINTU6*;"J" 

70 PL=0:TI^="000000" 

71 G = US:W=UC 

72 DIM TX(250),TY(250) 

98 PQKEUG r UF:PRINT" J" :POKEUG,U9:POKEUB,U 
E 

100 POKE G+79,31 

105 print" sMgpfi; 

106 printug*;"_ 

107 F0RJ=1T09:PRINTU4$;CHR$<J+48);U6$; 

_"; :NEXTJ 

110 X =39 s Y=1 
115 FOR K=1TO250 
120 X*/:=RND< 1 )*7 

125 print" 11 ; 

128 PR INTU2$; "SHOT DOWN= " PL J " ■ S"JU4$;MI 
D$<TI$,3,2>"."MID$<:TI*,5,E> 
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130 IFY1=-2ANDX=1THENPOKEG+40*Y+X,32:Y1= 
0!X=39:Y=INT <RND <1>* 11 + 1>:BD=0 

140 POKE G+40*Y+X,3£ 

141 IF V = 1 AND Y1< >1 THEN 7000 

142 IF X%>4 THEN Y=Y+1+Y1 

143 X=X-1s IF X =0 THEN X=39 

144 IF PEEK<G+X+40*Y)< >32 AND Y<24 THEN 
GOSUB3000 

145 POKE G+X+40*Y,31 
150 IF V=1 THEN 8000 

300 GET A$iIFA$=""THEN305 

301 IFASC <<480RASC < A$)>57THENA*="0":A 
=0:G0T0310 

305 A=VAL<A$> 

306 IF A$= n 0" THEN B=0 

310 IF A=0 AND B< =0 THEN 400 
312 IF PEEK <G+A*4-1+360 ) = 102 THEN 400 
315 IF A >0 THEN B =24:XX=A*4-1:YY=23: k! = 0 
320 B =B-1 

330 POKE G + XX+YY*40+UI,32 
340 YY=YY-1:RX=RND<1>*3-1 
345 UI=UJ + RX 

350 POKE G + XX + YY*40+UI,42 

360 TX < K)=XX +I/J s TY < K > =YY 

400 IF Y = >24 THEN GOSUB2000 

405 L =K-22 s IF L<1 THEN L=250-K 

410 POKE G+TX<L>+TY<L>*40,32 

420 IF Y1=0 AND Y>1£+XX THEN GOSUB4000 

425 B3 =0 

430 FOR N=1TO10 

431 IF PEEK <G+959+<N-l)*4)=102 THEN B3= 
B3+1 

432 IF B3=9 THEN 5000 

434 IF BR <N> =0 THEN 460 

435 POKE G+BX<N)+40*BY<N),32 

440 BX <N)=BX <N> -1:BY<N)=BY <N) +3 

441 IF BX <N)=0 THEN BX<N>=39 

442 IF BY(N) = >24 THEN POKE G+BX<N>+960,1 
02:BR <N)=0:GOTO460 

445 POKE G+BX <N)+40*BY<N),46 
460 NEXT N 

500 IF GM=1 THEN POKE G+X+40*Y,83 
502 NEXT K 
600 GOTO 115 
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£000 FOR N=0TO6 

£010 PRINTU£$;"g CRASH !" 

£01 £ IFX-NC1 THEN X=X+40 

£015 POKE G+X+960-N, 10£ '• POKE G+X+9£0-N,l 
04 

£0£0 PRI NT "IS 
£030 NEXT N 

£040 Y=INT<RND <1 > * 1 1 + 1 ):X=39:BD = 0:Y1=0 
£045 GM=0 s PL =PL +1 
£090 RETURN 

3000 PR INTU£$; "S3 BALE OUT! 

3005 IF GM=1 THEN GM=0:POKE G+40*Y+X,86: 

PR INT"3 “:GOTO£040 

3010 Y1 = 1 .* D5 =83 

30£0 GM=1 

3030 RETURN 

4000 BD=BD+1 

4010 IF BD >=11 THEN Y1 = -£:RETURN 
40£0 BX <BD > =X s BY<BD > =Y+1 
40£5 BR < BD > = 1 
4030 RETURN 

5000 PRINTU4$; "gSALL DESTROYED!" 

5010 PRINTU0*; "S^NOTHER GO? <Y/N> " 

50£0 GET A$: IF A$="" THEN 50£0 

50£5 IFA$="N"THENPRINT"5ITHANK YOU FOR PLA 

YING. "s END 

5030 RUN 

7000 GET A$:A=VAL<A$) 

7010 IF A =£ THEN Y=Y+1+Y1:GOTO 143 
70E0 IF A =3 THEN Y=Y-1+Y1:GOTO 143 
7035 A =0 
7040 GOTO 143 

3000 IF YY + <XX-X +UJ>/4 < = Y AND Y1=0 THEN 8 
100 

8010 IF YY<Y +1 THEN 8100 

8050 B =£4 s GOTO3£0 

8100 A = INT<X/4-<£4-Y)/3 > + 1 

8110 IF A<1THEN A=9-A 

81£0 IF A >9 THEN A=A-9 

3195 G0T031£ 

63900 REM COMMODORE 64 CLR/SOUND CODES 
6390£ US=10£4 s UC=55£96 s UG=53£81 
63904 UB=53£S0:UV=54£96:UA=54£77:UD=54£7 
3:UH =54£73:UL=54£7£ 
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63905 UIaI= 54276:U0=0:U0$="B" s U 1 = 1 : U 1 *= "ST 
:U2=£:U2^= ,, 3" 

63906 U3 =5 s U3$= 11 U" : U4 =6 : U4$ = "a" • U5 = 8 : U5* 
= n ":U6=9:U64>= 

639 10 U7=10:U7$="O" : U8= 13 : U8$= "il" :U9=14: 
U9*= : UU=4 : UU*= "M" 

639 15 UR=12 s UR$= "JjJ" : UE =7 : UE* = 11 B" sUF = l 1 :U 
F$= "IS" * RETURN 




Scuba 


Try your skill at sub-aqua piscatorial plunder whilst avoiding the unpre¬ 
dictable j aws of death! Starting from the safety of your floating plat¬ 
form, you take your three minutes’ worth of air and descend to the 
depths, questing after your prey (they’re the small fish). The sharks 
(they’re the big ones) are mostly harmless, but when they open their 
mouths you’re in trouble. Getting eaten by a shark that feels like a snack 
or running out of air are both losing options. Recharge your air supply 
back at the platform. 

£ REM SCUBA GAME 

3 POKE 53269,0iREM CANCEL ALL SPRITES 
6 PR I NT "PLEASE WAIT A MOMENT FOR...S C 
U B A" 

10 REM SCUBA.WALWYN 

20 GOSUB5000 
£5 GOSUB3000 

30 POKEV+16,0:POKEV+£1,0 

40 FORK=0TO7:POKEV+K*2,0:POKEV+K*2+1,0:N 

EXTK 

50 

51 

52 

53 

54 
60 
61 
62 

63 

64 

65 

66 

67 
ES 

68 
70 
72 
80 
81 
82 


REM SPRITE NUMBERS ARE AS FOLLOWS... 

REM 0,1 AND £ ARE SHARKS 

REM 3,4,5 ARE FISH 

REM 6 IS NOT USED 

REM 7 IS THE SWIMMER 

REM X (7 ) AND YC7) ARE SCREEN PLACINGS 
REM XX(7) IF 1 THEN X<7> OVER £55 
DIM X<7>,Y(7>,XX <7 > 

REM FD < 5) ARE FISH DEPTH STEPS 
DIM FDC5) 

REM FM<5) ARE FISH MOVE STEPS 
DIMFM <5) 

REM FS < 5) ARE FISH RANDOMISER VARIABL 

DIM FS(5),F U < 5) 

REM EXPAND SHARKS 
POKEV+29,7:POKEV+23,7 
REM FU(5) ARE SPRITE COLOURS 
REM SHARKS ARE ALWAYS BLACK 
FU <0)=U0:FU <1)=U0:FU <2 ) =U0 
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S3 REM FISH ARE DIFFERENT COLOURS... 

34 REM FISH SPRITE 3 IS LIGHT RED 
85 FU(3)=U7 

35 REM FISH SPRITE 4 IS LIGHT BLUE 

87 FLK4)=U3 

88 REM FISH SPRITE 5 IS YELLOW 
83 FU <5 >=UE 

80 REM SWIMMER IS LIGHT GREY 

31 POKEV +46 ,UR 

32 FORJ =0TO5:POKEV+39+J, FU (J >:NEXTJ 
93 REM ***S=SWIMMER SPRITE TYPE * * * 

100 GOSUB4000 

120 REM FISH SETUP 
130 POKEV +16,0s FORK =3T05 
135 FS(K > = 1 : IFRND( 1 > > .5THEN150 
140 XX (K ) =0 : X < K > =0 : Y ( K > = INT < RND(1>*130+8 
0 > 

145 FS=4iFM<K > = INT (RND <1>*2+2>:FO<K> = INT 
(RND <1>*5-2) 

148 POKE2040+K,(240+FS):GOTO 160 
150 XX < K) = 1:X(K>=98:Y(K>= INT(RND(1>*130 + 
80) 

155 FS=5:FM(K>=-INT(RND(1>*2+2>:FD(K>=IN 
T(RND(1> *5-2 > 

156 POKEV+16, PEEK(V+16>+2tK 

153 POKE2040 +K,(240+FS> » GOTO 160 
160 POKEV +K*2,X(K>:POKEV+K*2+1,Y(K) 

165 KJEXTK 
180 POKEV +21,184 
182 REM ENABLE SWIMMER SPRITE 
190 X(7>=197:Y(7>=53:POKEV+46,UF:S=11:T= 
1 

200 REM GET CONTROL KEY 
210 K1=PEEK(197 > 

220 IFK1=12THEN230 

221 IFT=1THEN300 

222 IFK1=9THEN240 

223 IFY(7 > < 75THEN300 

224 IFK1=13THEN250 
226 IFK1=10THEN260 

228 Y(7>=Y(7> + 1: IFY(7> >220THENY(7>=220 

229 GOTO300 

230 IFT=1ANDY(7 >>75THENT = 0:POKEV+46,UR:T 
A =TI + 10800 
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£3£ Y(7)=Y< 7)+4: IFS=11THENS=10:G0T0£34 
£33 S=11 

£34 IFY < 7)>££OTHENY<7)=££0 
£36 GOTO300 

£40 Y < 7)=Y<7 >-4 s IFS =11THENS=10:G0T0£44 
£4£ S=11 

£44 IFY<7)<118ANDX <7 >>183ANDX<7)<£06THEN 
£48 

£45 IFYC7)<76THENY<7 > =76 
£46 GOTO300 

£48 X <7) = 195: IFY<7><54THENP0KEV+46,UF:T= 
1 

£49 GOTO300 

£50 X <7)=X(7)+5 s IF <S<4ANDS >1)THENS=10:GO 
T0£54 

£51 IFS=0THENS=1:G0T0£54 
£5£ 8=0 

£54 IFXX < 7) = 1THEN£57 

£55 IFX(7)>£55THENXX <7) = 1:X(7)=4:POKEV+1 
6 ,PEEK <V + 16> + 1£8 
£56 GOTO300 

£57 IFX <7)>73THENXX <7)=0!X <7) = 19 sPOKEV +1 
6 ,PEEK <V + 16>-1£8 
£58 GOTO300 

£60 X<7>=X<7)-5! IFS<£THENS = 11 £G0T0£64 
£6 1 IFS=£THENS=3:G0T0£64 
£6£ S =£ 

£64 IFXX<7) = 1THEN£67 

£65 IFX < 7)<19THENXX(7) = 1:X<7)=78iPGKEV +1 
6 ,PEEK <V + 16> + 1£8 
£66 GOTO300 

£67 IFX <7 ) OTHENXX <7 ) =0 : X <7 ) =£5 1 : PGKEV + 1 
6 ,F’EEK <V + 16> - 1£8 
£68 GOTG300 

300 POKE£047,S + £40:POKEV+14,X <7) 

310 POKE V+15,Y<7) 

3£0 Q=PEEK<V+30>:IFQ<>0THEN330 
3£5 GOTO400 

330 REM COLLISION OF SPRITES 

331 IFQ = >1£8THEN333 
33£ GOTO400 

333 FORK=0TO5:IFFS<K)=0THEN340 

334 IFQAND£tKTHEN336 

335 GOTO340 
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336 XF = AB3 <(XX <7 >*255+X <7 >>-<XX(K > *255+X 
<K> > > 

337 YF=ABS(Y<7)-Y(K)> 

338 IFK<3ANDXF<E5ANDYF<20THEN345 

339 IFK >£ANDXF <14ANDYF<14THEN345 

340 NEXTK s GOTO400 

345 IFK<3ANDFS <K >=2THEN615 
347 IFK <3THEN340 

350 FORL=1TOE0:P0KEV+39+K,U1:FORM=1TO10: 
NEXTM 

355 P0KEV+39+K,U0:FORM=1 TO 10 :NEXTM:NEXTL 
360 P0KEV+39+K,FU(K > 

365 P=P+1 : IFXX <K > = 1THENPOKEV+16,PEEK<V+1 
6>-£ tK:XX < K >=0 

370 POKEV+K*2,0:POKEV+K*2+1,0:X<K)=0:Y<K 
>=0 

380 POKEV+21,PEEK < V +21>-2tK:FS<K>=0 

400 REM FISH RANDOMISER 

4 10 R = I NT < RND <1>*100): IFR>8THEN500 

4 15 IFR >5THENR =R-3 

420 IFFS < R > <>0THEN450 

430 FS <R > = 1 : IFRND ( 1 > > .5THEN440 

434 XX <R)=0: X <R >=0:Y(R > = INT<RND <1>*130+8 
0> 

435 POKEV+21,PEEK(V+£1>+2tR 

436 FS=4:FM<R>= INT <RND <1>*£+£>:FD(R>=INT 
<RND<1>*5-2> 

437 IFR < 3THENFS =6 

438 POKE2040 +R r <240+FS>:GOTO500 

440 XX < R > = 1:X < R > =95:Y < R > = INT <RND <1>*130 + 
30 > 

442 POKEV+21,PEEK(V+21>+2tR 
444 POKEV + 16 , PEEK <V+16 > +2tR 

446 FS =5:FM< R > =- I NT(RND <1>*2+2>:FD<R> = IN 
T < RND <1> *5-2 > 

447 IFR < 3THENFS =8 

443 POKE2040+R„ <240+FS >:GOTO500 
450 I FFS <R> = 1THEN460 

455 FS <R > = 1: IFRND <1> >.5THEN436 
457 60T0446 

46© FD <R > = INT<RND <1>*9-4>:FM(R>=FM(R>*4* 
<INT < RND <1> *2 > *£-1> 

470 FS<R>=2: IFR<3THEN480. 

472 IFSGN<FM(R >> = 1THENPOKE2040 +R,(£40+4> 
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474 IFSGN<FM<R>) = -1THENPOKE2040+R,<£40+5 

> 

475 GOTO500 

480 IFSGN<FM<R> >=1THENPOKE2040+R,<240+7> 
490 IFSGN<FM(R)>=-lTHENPOKE£040+R,(£40+9 

) 

500 FORK=0TO5:IFFS<K>=0THEN600 
510 X<K>=X<K>+FM<K>:Y<K>=Y<K>+FD<K> 

51£ IFY<K > <80THENY<K )=80 
513 IFY<K)>££0THENY<K>=££0 

5 15 IFRND <1)>.92THENFD <K ) = INT(RND <1>*5-£ 

> 

520 IFXX <K)ANDX <K> <0THEN550 

525 IFX < K > <0THEN560 

530 IFX < K )>£55THEN540 

535 IFXX <K > ANDX <K )>98THEN570 

539 GOTO590 

540 XX <K) = 1:X <K > =X <K >-255:POKEV+16,PEEK< 
V+16)+2 tK 

545 GOTO590 

550 XX <K)=0sX<K)=£55+X <K ):POKEV+16,PEEK < 

V+16>-£tK 

555 GOTO590 

560 XX <K ) = 1:X<K)=95+X<K>:POKEV+16,PEEK<V 
+16 ) +2tK 
565 GOTO590 

570 XX <K)=0:X <K)=X <K)-98:POKEV +16,PEEK < V 
+ 16) -£ tK 
575 GOTO590 

590 POKEV +K*£,X<K):P0KEV+K*2+1,Y<K> 

600 NEXTK:GOTO700 
615 REM SWIMMER EATEN! 

620 FORL=1TO20:POKEV+46,U1:FORM=1TO 10:NE 
XTM 

625 POKEV+ 46,U0:FORM=1 TO 10:NEXTM:NEXTL 
630 POKEV+46,UR 

632 PRINTU7*"afl\IO FISH! YOU'RE THE SUPPE 
R ! " 

635 PRINTU7$; "gpg^ATEN BY A SHARK!" 

640 GOTOS20 

700 F'R INTU0$ 11 ISH CAUGHT = "F; U9$ 

705 I FT= 1THENPR I NT" UBIfS " : GO 

TO200 

710 PRINT"asg£|AIR LEFT= 110311" I NT < < TA 

-TI >Y60) 



Scuba 121 


720 IF < TA -TI X0THENS00 
750 GOTO200 
800 PR INT"g 

805 PR INTUIT; ,, aa ,, P"FISH BROUGHT BACK FOR 
SUPPER. " 

810 PRINTU7S;" aflgR UN OUT OF AIR..." 

820 PR INTUIT; " aXM ANOTHER GO <Y/N>?" 

830 GETA3>: IFASK >" "THENS30 
340 GETA*:IFA$=""THENS40 
850 IF A$ ="Y"THENRUN 

860 IFA$ = " N" THENF'R I NT" THANK YOU FOR PLAY I 
NG JJSCUBA " s END 
870 GOTO340 
998 END 

3080 REM SCUBA INSTRUCTIONS 

3010 POKEUG ,U9 s POKEUB,U2 s PR INTU2S"J"TAB < 

15> "S CUBA" 

3030 PRINTUF$‘"YOU ARE A SCUBA DIVER ON 
A RAFT ABOUT 

3040 PR INT"TO SWIM OFF AND CATCH FISH FO 
R SUPPER." 

3050 PR INT"HOLD DOWN. . . .A. . .TO SWIM TO T 
HE LEFT" 

3060 PR INT"HOLD DOWN. . . .S. . .TO SWIM TO T 
HE RIGHT" 

3070 PR INT"HOLD DOWN. . . .W. . .TO SWIM TO T 
HE SURFACE" 

3080 PR INT"HOLD DOWN. . . .2. ..TO SWIM TO T 
HE BOTTOM" 

3100 PR I NT" SJYOU ARE ARMED WITH A HAND SP 
EAR AND 

3110 PRINT"YOU SIMPLY NEED TO SWIM WITH I 
N REACH OF" 

3120 PR INT"A FISH TO CATCH IT FOR DINNER 

I 11 

3130 PR INT"BEWARE OF THE SHARKS ... THEY A 
RE QUITE 

3140 PR INT"HARMLESS BUT CAN SUDDENLY OPE 
N THEIR 

3150 PR INT"MOUTHS AND THEN BECOME VERY N 
ASTY! " 

3155 PR INT"A SPEAR WONT HELP YOU AGAINST 
SHARKS..." 

3160 PR INT"THERE'S A MAX. OF 3 FISH AND 
3 SHARKS 
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3170 PRINT"IN THE SEA AT ANY ONE TIME." 
3180 PR INT"FISH MAY SUDDENLY CHANGE COUR 
SE OR 

3 190 PR INT"SPEED IF THEY BECOME RANDOMLY 
PANICKY!" 

3200 PR I NT "gl^HEN YOU ENTER THE WATER, YO 
U HAVE 3 

3210 PR INT"MINS. AIR SUPPLY. YOU MAY RET 
URN TO THE 

3220 PRINT"RAFT AS OFTEN AS YOU LIKE FOR 
MORE AIR." 

3230 PRINT"A GOOD DIVER WILL GET AT LEAS 
T 20 FISH!" 

3250 PR INT "jiBOOD LUCK. PRESS ANY KEY TO 
START a" 

3260 GETA$: IFASK >""THEN3260 

3270 GETA$:Q=RND<1>:IFA$=""THEN3270 

32S0 RETURN 

4000 REM CLEAR SCREEN AND PRINT SEA 
4010 POKEUB,U0 s POKEUG,U4 
4020 PRINT"J"U9*; 

4030 FORJ = 0TO3 
4040 PRINT"^ 

ii ■ 

r 

4050 NEXTJ 

4060 PRINT" } 

4070 PRINTU6*"a " 

4080 PRINTU0$"BMliil4-4-Mll4-Ffflill++aill4-fjail 
4+MMI++" 


4 100 

PRINTU3$"H! 


l 


4 1 10 

PRINT" 

II a 

* 

* * 


4 120 

PRINT" 

* ** 

** * 

* * 

* 

II ■ 




4130 

PRINT" 

* * # % 

* % * * 

* * 

** 

II ■ 

r 




4140 

PRINT" 

%%%%%%%%%%%%%%%%%%%%% 

* ** 

* "; 




4 150 

PRINTU5S;" 

ar 







4900 

RETURN 




5000 

REM SPRITE 

DATA SUBROUTINE. 

. . ’64 1 

500 1 

REM SPRITE 

BASE VARIABLE = 

•V 1 

5002 

V =53248 
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5004 REM ALTER BASIC MAX MEMORY AND VAR I 
ABLE LOW MEMORY 

5005 P0KE52,60 s POKE56,60 

5006 REM LOAD DATA INTO BLOCKS 240-UPWAR 
OS 

5007 FORK=0TO11:FORJ=0TO6£ 

5008 READ A s POKE(240+K > *64+J,A s NEXTJ, K 
5010 REM SWIMMER RIGHT 1 

5020 DATA 0 , 0 , 0 , 0 , 0, 0, 0, 0 

5030 DATA 0, 0, 0 , 0 , 0, 0, 0 r 32 

5040 DATA 31, 192, 112, 31, 192, 152, 12 

7, £36 

5050 DATA 15, £55, 254, 127, £55, £38, 6 

4, 6 

5060 DATA 0, 64, 31, £55, 0, 1, £24, 0 

5070 DATA 0, 0, 0, 0, 0, 0, 0, 0 

5080 DATA 0, 0, 0, 0, 0, 0, 0, 0 

5090 DATA 0, 0, 0, 0, 0, 0, 0 

5110 REM SWIMMER RIGHT 2 

5120 DATA 0, 0, 0, 0, 0, 0, 0, 0 

5130 DATA 0, 0, 0, 0, 0, 0, 0, 0 

5140 DATA 31, 192, 64, 31, 192, 112, 127 

, £36 

5150 DATA 95, £55, £54, 79, £55, £38, £5 

2 , 6 

5160 DATA 0, 192, 31, £55, 64, 1, £24, 3 

2 

5170 DATA 0, 0, 0, 0, 0, 0, 0, 0 

5180 DATA 0, 0, 0, 0, 0, 0, 0, 0 

5190 DATA 0, 0, 0, 0, 0, 0, 0 

5210 REM SWIMMER LEFT 1 

5220 DATA 0, 0, 0, 0, 0, 0, 0, 0 

5230 DATA 0, 0, 0, 0, 0, 0, 0, 3 

5240 DATA £48, 0, 3, £48, 12, 55, £54, £ 

6 

5250 DATA 127, £55, £41, 119, £55, 192, 

1 , 192 

5260 DATA 96, £55, £48, 56, 14, 0, 8, 0 

5270 DATA 0, 8, 0, 0, 8, 0, 0, 0 

5280 DATA 0, 0, 0, 0, 0, 0, 0, 0 

5290 DATA 0, 0, 0, 0, 0, 0, 0 

5310 REM SWIMMER LEFT £ 

5320 DATA 0, 0, 0, 0, 0, 0, 0, 0 
5330 DATA 0, 0, 0, 0, 0, 0,0, 3 
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5340 DATA 248, 0, 3, 248, 0, 55, 254, 0 
5350 DATA 127, 255, 255, 119, 255, 249, 
1 , 192 


5360 

DATA 

13, 255, 248, : 

9, 

14, 

0, 

16, 

0 

5370 

DATA 

0 , 0 , 0 , 0 , 

0, 

0 v 

0, 

0 



5380 

DATA 

0, 0, 0, 0, 

0 / 

0, 

0 / 

0 



5390 

DATA 

0 , 0 , 0 , 0 , 

0, 

0, 

0 




54 10 

REM SMALL FISH RIGHT 





5420 

DATA 

0, 0, 0, 0, 

0 r 

0, 

0, 

0 



5430 

DATA 

0, 0, 0, 0, 

0, 

0, 

0, 

0 



5440 

DATA 

0, 0, 0, 0, 

0, 

0 / 

12 

, 0 



5450 

DATA 

4, 62, 0, 3 

, 125, 

0 / 

1, 

255 


5460 

DATA 

128, 3, 125 

, 0 

, 4 

, 28, i 

0, 0 


5470 

DATA 

0 , 0 , 0 , 0 , 

0, 

0 / 

0, 

0 



5480 

DATA 

0, 0, 0, 0, 

0, 

0 r 

0, 

0 



5490 

DATA 

0, 0, 0, 0, 

0, 

0, 

0 




5510 

REM SMALL FISH LEFT 






5520 

DATA 

0 , 0, 0 r 0/ 

0, 

0 / 

0, 

0 



5530 

DATA 

0, 0, 0, 0, 

0 / 

0, 

0, 

0 



5540 

DATA 

0 , 0 , 0 , 0 , 

0, 

0 / 

96 

, 0 



5550 

e: 

DATA 

0, 240, 64, 

1 , 

125, 

128 

, 3, 

£5 

D 

5560 

DATA 

0, 1, 125, 

128 

, 0 

, 112, 

64, 

0 

5570 

DATA 

0, 0, 0, 0, 

0 r 

0, 

0, 

0 



5580 

DATA 

0, 0, 0, 0, 

0 r 

0, 

0 / 

0 



5590 

DATA 

0 , 0 , 0 , 0 , 

0 r 

0 r 

0 




5810 

REM SHARK RIGHT 







5620 

DATA 

0 , 0 , 0 , 0 , 

0 r 

0 /■ 

0, 

16 



5630 

DATA 

0, 0, 24, 0 

r 0 

, 28, 

0, 

128 


5640 

s 

DATA 

30, 0, 192, 

31 

, 0 

, 1 98 r 

63, 

12 

5650 

DATA 

96, 255, 192, 

1 15 

r £55, 

248, 

1 

27, 255 








5660 

DATA 

223, 127, 255, 

£54, 

127 

, £55 

F 

*■ 

00 

1 13 








5670 

DATA 

255, 252, 224, 

255, 

240 

, 128 

r 

63, 

192 








5680 

DATA 

0, 30, 0 , 0 

, 0 

, 0 

, 0 

, 0 



5690 

DATA 

0, 0, 0, 0, 

0, 

0, 

0 





5710 REM SHARK RIGHT OPEN MOUTH 
5720 DATA 0, 0, 0, 0, 0, 0, 0, 16 

5730 DATA 0, 0, 24, 0, 0, 28, 0, 128 

5740 DATA 30, 0, 192, 31, 0, 192, 63, 12 

8 
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5750 DATA 96, £55, £55, 115, £55, £££, 1 

£7, £55 

5760 DATA £44, 1£7, £55, £08, 1£7, £55, 

64, 113 

5770 DATA £55, £3£, ££4, £55, £5£, 1£8, 

63, 19£ 

5780 DATA 0, 30, 0, 0, 0, 0, 0, 0 
5790 DATA 0, 0, 0, 0, 0, 0, 0 
5810 REM SHARK LEFT 

58£0 DATA 0, 0,0, 0, 8, 0, 0, £4 


5830 

DATA 

0, 0 

, 56, 1, 0, 1£0, 3, 

0 


5840 

£ 

DATA 

£48, 

3, 3, £5£, 7, 15, 

£55, 

14 

5850 

DATA 

59, 

£55, £54, £55, £55, 

£5£, 

8 

5, £55 





5860 

DATA 

£54 , 

63, £55, £06, 15, 

£55 , 

6, 

7 






5870 

data 

£5£, 

3, 0, £40, 0, 0, 96, 0 


5830 

DATA 

0, 0 

, 0, 0, 0' 9 ' e ' 0 



5890 

DATA 

0, 0 

, 0, 0, 0, 0, 0 



5910 

REM SHARK 

LEFT OPEN MOUTH 



59£0 

DATA 

0, 0 

, 0, 0, 3, 0, 0, £4 



5930 

DATA 

0, 0 

, 56 , 1, 0, 1£0, 3, 

0 


594 0 

DATA 

£48, 

3, 63, £5£, 7, £47 

, £55 

r 

14£ 

5950 

DATA 

95, 

£55, £54, £3, £55, 

£5£ , 

5, 

1 £7 






5960 

DATA 

£54, 

43, £55, £06, 63, 

£55, 

6, 


7 

5970 DATA £5£, 3, 0, £40, 0, 0, 96, 0 
5980 DATA 0, 0, 0, 0, 0, 0, 0, 0 
5990 DATA 0, 0, 0, 0, 0, 0, 0 
6010 REM SWIMMER LEFT HAND UP 
60£0 DATA 0, 0, 0, £, 0, 0, £, 0 
6030 DATft 0,. 2, 56, 0, £, 56, 0, £ 

6040 DATA 56, 0, 3, 16, 0, 1, £55, 0 
6050 DATA 0, 1£5, 1£8, 0, 1£4, 1£8, 0, 1 

£4 

6060 DATA 1£8, 0, 1£4, 1£S, 0, 1£5, 1£3, 

0 

6070 DATA 110, 0, 0, 10£, 0, 0, 10£, 0 
6080 DATA 0, 10£, 0, 0, 10£, 0, 0, 103 
6090 DATA 1£8, 0, 96, 0, 1, ££4, 0 
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6 110 REM SWIMMER RIGHT HAND UP 

61£0 DATA 0, 0, 0 , 0/ 1, 0 , 0, 1 

6130 DATA 0, 0, 57, 0, 0, 57, 0, 0 
61^0 DATA 57, 0, 0, 19, 0, 1, £54, 0 
6150 DATA 3, 1£4, 0, £, 1£4, 0, £, 124 

6160 DATA 0, £, 124, 0, 3, 1£4, 0, 0 

6170 DAJA £36, 0, 0, £04, 0, 0, £04, 0 

6180 DATA 0, £04, 0, 0, £04, 0, 3, £04 

6190 DATA 0, 0, 1£, 0, 0, 15, 0 

7000 REM * * * * * *********** * ************ 
7002 REM COLOUR CODES FOR COMMODORE 64. 
7305 REM <ONLY USE THESE COLOURS) 

70 10 U0"0iU0sfc="■"? REM BLACK 

7620 Ul = i :Ul*="3 n :REM WHITE 

70S0 U£ = £:U£T= ,, g ,! : REM DARK RED 

7040 U3=5iU3$="ST JREM GREEN 

7050 U4 =8!U4£="3" : REM DARK BLUE 

7060 U5=3:U5S=CHR$<129):REM GRANGE 

7070 U6=9:U6*= n ir :REM BROWN 

70S0 U7=10:U7$="©"SREM PINK 

7690 U8 = i3:U84J="il" sREM LIGHT GREEN 

7100 U9= 14 : U9$= "L3" I REM LIGHT BLUE 

7 11© UU =4:UU$=" H" :REM PURPLE 
7120 UR=12 i UR$="y":REM LIGHT GREY 
7130 UE -7i UE-$ ="0" s REM LIGHT YELLOW 
7 140 UF=1 1 :UF$= "@J" sREM DARK GREY 
7200 REM SCREEN 'POKE' CODES FOR 64. 

7£10 US=1024:REM SCREEN POKE CHARACTER 
7220 UC=55£96:REM SCREEN POKE COLOUR 
7230 UG=53£81:REM BACKGROUND COLOUR 
7£40 UB =53280sREM SCREEN BORDER COLOUR 
7300 REM SOUND 'POKE' CODES FOR 64. 

7310 UV=54236iREM VOLUME FOR 3 VOICES 
7320 UA=54277 s REM ATTACK FOR VOICE 1 
7330 UD = 54278 sREM SUSTAIN FOR VOICE 1 
7340 UH=54273:REM HIGH BYTE FOR VOICE 1 
7350 UL=5427£:REM LOW BYTE FOR VOICE 1 
7360 UW=54£76'REM WAVEFORM FOR VOICE 1 
7400 RETURN 

7500 REM ***************************** 




Plot Planner 


Even the smallest vegetable patch can be productive if you take care to 
plant your plot with careful planning. Which vegetables? How much 
room do I need to leave between rows of broad beans? Can I squeeze in 
the odd lettuce at the end of the garden? This program solves all such 
dilemmas. 


“Plot Planner” allows you to sketch out a plan of your garden on the 
screen, and then prints out a shopping list of how many seeds or bulbs 
you require. On the screen the essential gaps to be kept free from weeds 
are marked as ‘+\ Happy gardening! 


5 REM PLOTPLANNER.WALWYN 

8 GOSUB63900 

20 POKEUB , U6 i POKEUG , U6 s PR INTU 1$; "jj 
PLOT PLANNER" 

40 PR INT"SB3THERE IS SPACE FOR 25 DIFFERE 
NT " 

45 PR I NT "VARIETIES OF VEGETABLE." 

48 PR INT"SAT PRESENT THERE ARE 18 IN THE 
DATA BANK" 

50 PR I NT "HSJJPDATE OR ALTER THE 'READ' AN 
D 'DATA'" 

60 PR INT"B3TATEMENTS WHERE NECESARY" 

70 PR INT"BIN LINES 100-110,200-,400- & 6 
00 - " 

80 PR I NT "STRESS ANY KEY" 

81 GET A$: IF A$=" " THEN 81 

85 DIM V$<25>,CSK25>,D<25),Y<25>,Y*<25> 
87 DIM N<25>,N*<25>,P$<25),T<25> 

90 CH$<1>="LEGUMES":CH$<2)="SALADS":CH$< 
3 > = "ROOTS" 

91 REM V$<X) IS THE NAME OF THE VEGETABL 
E 

92 REM C$<X> IS THE INITIAL LETTER OF TH 
E FAMILY 

93 REM WHERE L=LEGUMES, S=SALADS, R=ROOT 
S 

94 REM D <X) IS THE RECOMMENDED DISTANCE 
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IN FEET BETWEEN ROWS 

95 REM Y<X> IS THE MAXIMUM YIELD PER £5 
FOOT ROW 

96 REM Y*<X> IS THE YIELD DESCRIPTION 

97 REM N(X) IS THE AMOUNT OF SEEDS/BEANS 
REQUIRED 

98 REM N$<X> IS THE MEASURE DESCRIPTION 
OF SEEDS/BEANS REQUIRED 

99 REM P$<X> IS THE IDENTIFYING LETTER U 
SED ON THE SKETCH 

100 FOR A =1TO 18 

105 READ Vsfc(A),C$<A), D < A ), Y( A ),Y$<A) 

110 READ N<A>,N*<A>,P*<A> 

1£0 NEXT A 

£00 DATA "PEAS M , L , 3 ,60,"LBS",0.5,"PINTS" 
, "P" 

£10 DATA "MANGETOUT",L,3,60,"LBS",0.5, "P 
INTS","M" 

££0 DATA "BROAD BEANS",L,£,£0,"LBS",0.1£ 
,"PINTS","B" 

£30 DATA "FRENCH BEANS",L,£,38,"LBS " ,0.£ 
5,"PINTS","F" 

£40 DATA "ONIONS",L,1,£5,"LBS",50,"BULBS 

" r « o " 

£50 DATA "SHALLOTS",L,1,15, "LBS",1,"LBS" 
, "S" 

£60 DATA "LEEKS",L,1,38, "LEEKS",0. 1£, "OZ 
" , "L " 

400 DATA "MARROWS",S,3,40,"FRUIT",9,"SEE 
DS","M" 

410 DATA "TOMATOES",S,3,40,"LBS",0.1£,"0 
Z " , " T " 

4£0 DATA "CUCUMBERS",S,£,£5,"CUES. ", 13, " 
SEEDS","R" 

430 DATA "CELERY",S,£,30,"LBS",0.1£, "OZ " 
, "C" 

440 DATA "LETTUCE",S,1,£5,"HEADS",0.12," 
OZ " , "L" 

450 DATA "ENDIVE",S,1,£5,"HEADS" ,0. 1£, "O 
Z " , " E " 

600 DATA "ARTICHOKES",R,2,36,"LBS" ,1£, "T 
UBERS" , "A" 

610 DATA "BEETROOT",R,1,38,"LBS",0.25,"O 
Z " , "B" 
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620 DATA "PARSNIPS", R ,1 ,50,"LBS",0.25, "0 
Z","P" 

630 DATA "CARROTS",R,1,20,"LBS",0. 12, "OZ 

II II Q II 

640 DATA "SPINACH",R,1,20,"LBS",0.5,"OZ" 
, "S" 

800 P0KEUG,U3:PRINTU2$;"J 
810 PRINT"LEGUMES <L> 

812 PR I NT" gJBALADS <3> 

814 PR INT"HROOTS (R) 

817 PR INT"H" 

8 18 G=0: INPUT"WHICH TYPE" ; 

819 IF X$ ="L"THEN Q=1 
S20 IF X$="S"THEN Q=2 

321 IF X*="R"THEN G = 3 

322 IFQ=0THENSIS 


823 PRINTUF^; 


825 PRINT" 

326 PRINT" 

327 PRINT" 

828 PRINT" 

829 PRINT" 

330 PRINT" 

S31 PRINT" 

332 PRINT" 

833 PRINT" 

834 PR INT"S 

835 PR INT"TYPE 


X FT. 


Y FT. 

IN YOUR PLOT SIZE IN FEET 


836 INPUT"FIRST 'X' <MAX 18 FT.)";X 

837 I NPUT" & NOW 'Y' CNAX 38 FT.V'JY 

833 IFX>180RY>380RX< =0ORY<=0THEN PR I NT"□ 
rm " : G0T0835 

839 P0KFL1G .UR : PR INTU2S; " LMB1 IF YOU'VE ALR 
EADY PUT YOUR" 

840 PR I NT" gJTARGET YIELDS IN FOR U CH^<Q) 
84 1 PR I NT "HAND YOU WANT A PLOT SKETCH 

842 PRINT"BSTRAIGHT AWAY THEN TYPE 'M'." 

843 PR INT"I&flOTHERWISE TYPE ANY LETTER... 

II 

344 GET W$sIF W*=""G0T0844 
845 IF W*="M"G0T08S5 

847 FOR J=1 TO25 

848 P0KEUG,U6:PRINTUE$; " iJMMi * ******* "CH 
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$<Q)"******** 

849 IF X$=C$<J> 60T0853 


851 

NEXT J 



852 

G0T0875 



853 

PRINT"gNAME 

H V$<J) 


354 

PR INT "S3SKETCH LOGO 

"PSCJ) 


855 

PR INT"gfTIELD PER 25 ' ROW 

" Y < J ) " 

"Y$< 

J) 




856 

PR INT"IS S 10 . PER 25' ROW 

" N < J ) " 

"N$< 


858 PRINTU7$;"MMTARGET YIELD IN "Y$<J> 

859 PRINTU7S; n MgM <IF NONE TYPE '0') 

II 

860 INPUT"KM" ;T<J) 

862 PR I NT "LI 

865 NEXT J 

875 PRINT' 1 L‘iai%R® THAT 1 S ALL THE "CH$<Q) 

877 PRINT" M Q YOU WANT A MAP DRAWN NOW? 
< Y/N ) 

879 GET W$: IF W$=""G0T0879 

880 IF W*="N" GOTO800 

885 G =US +80 

886 H=U3+121 

887 R =0 '• S =0 

888 POKEUG,U3:PRINTU7$; "CH$<Q)" IN PL 
OT "X" BY "Y:POKEUG,UF 

890 PRINT"<EACH LETTER OR BLANK =1 SQ FO 
OT > " 

900 XX=X+1 
90 1 YY=Y +1 

902 FORA =1 TO Y 
904 POKE G+A,100 

906 POKE G +XX#40 + A,99 

907 NEXT A 

903 FOR A =1 TO X 
910 POKE G+A*40,103 

912 POKE G+YY +A*40,101 

913 NEXT A 

918 FOR J = 1T025 

920 IF C$(J>=X* G0T0924 

922 NEXT J 

923 GOTO2000 

924 U=T<J)/Y<J>*25 

925 IF T(J > =0 THEN NEXT J 
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928 U-INTCU) 

930 R =S 

938 IFR+U >Y G0T0942 
940 S=U+R-1:U=0:G0T0943 

942 S=Y-1:U=U-S+R-1 

943 IF D ( J > =3 G0T0975 

944 IF D ( J )=2 G0T0955 

945 FORK=RTOS s GOSUB7000sPOKE H+K,ASC<P$< 
J > >-64 

946 NEXT K 

947 S=S+1 

948 IF E >0 AND W>0 THEN E=0 

949 IF U<=0 ANO S>=Y-1 THEN H=H+E+U+40:S 
®0"IaI = 0"E 3 0" NEXT j 

950 IF U<=0 THEN NEXT J 
952 H=H+E+W+40XS=0 

954 W s 0 s E s 0 s GOTO930 

955 FORK=RTQS:GOSUB7000:POKE H+K,ASC<P*< 
J> >-64 

957 NEXT K 

959 H=H+40 

960 FORK 3 RTOS:GOSUB7000SPOKE H+K,ASC< U + M 

> 

961 NEXTK 

962 H=H-40 
964 W=40 
970 G0T0947 

975 FOR K=RTOS s GOSUB7000:POKE H+K,ASC<"+ 

" > 

977 NEXT K 
979 H=H+40 

981 FOR K=RTOS s GOSUB7000 s POKE H+K,ASC<P$ 
< J> >-64 
983 NEXT K 
985 H=H+40 

987 FOR K=RTOS:GOSUB7000:POKE H+K,ASC<"+ 

- > 

989 NEXT K 
991 H=H-80 
993 E =80 
995 G0T0947 

2002 IFH > =G +XX *40THEN2005 

2003 GOTO2010 


U7$ 
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£005 PR INT"************PLOT TOO SMALL!** 
***********" 

£010 PRINTU9$; REQUIREMENTS FOR ABOV 

E IF HAPPY." 

£0 15 PRINT"3^ CHANGE VEGETABLE LAYOUT 0 
N SKETCH." 

£0£0 PR I NT "igSK CHANGE PLOT SIZE. ^RESS 

RELEVANT KEY. HT 

£0££ GETA$:IFA$=""THEN£0££ 

£0£3 IFA$="R"THEN3000 

£0£4 IFA$="V"THEN£0£7 

£0£5 IF A$ ="S"THENPRINT"J":G0T08£5 

£0£6 GOTO£0££ 

£0£7 S =0:PR INTU7$ 

£0£8 INPUT"LETTER IDENT OF VEGETABLE0$ 
£0£8 I NPUT" NEW YIELD. " ; NY 

* 

£030 NY=VAL <NY$):FOR J=1T0£5 
£03£ IF P$<J>=0$ THEN T<J)=NY 
£034 NEXT J 
£035 G0T0885 

3000 P0KEUG,U3:PRINTUF$;"LPOR YOUR CHOSE 
N PLAN FOR 

3005 PR I NT " HI" CH$ ( Q > " IN PLOT "X" BY "Y 
3010 PRINT n SYOU WILL NEED: 

30£0 FOR J=1TO £5 

30£5 IFC*<J>=X* GOTO3040 

3030 NEXT J 

3037 GOTO3060 

3040 U = T <J)/Y< J ) 

3042 D=U*N<J) 

3043 D=D*100:DD=INT<D): IFDD=0THEN3050 

3044 DD=DD/100:PRINTU£*; 

3045 PR INT" gl"DD " “N$(J)" OF "V$<J>" < "T< 

J)Y$(J)" ) 

3050 NEXT J 
3060 PRINTUF*; 

3065 INPUT 0 UgANOTHER PLOT TO PLAN <Y/N>" 
; A$ 

3070 IF A$="Y" GOTO 800 

3080 PR I NT " MKD81M TH A NK YOU FOR USING MY SER 
VICES! 

3090 PRINT"^HAPPY GARDENING.... 

4000 END 
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7000 REM CHECK NOT OFF SCREEN 
7010 IFH+K<2024THENRETURN 

7020 PRINT"*********TOO LARGE FOR THE SC 
REEN*******" 

7030 GOTO2005 

63900 REM COMMODORE 64 CLR/SOUND CODES 
63902 US=1024 s UC =55296!UG=53281 

63904 UB=53280:UV=54296:UA=54277:UD=5427 
8:UH=54273:UL=54272 

63905 UW=54276:U0=0:U0$="B M : U 1 = 1 : U 1 $= 11 al" 
s U2=2 t U2$= "[3 M 

63906 U3 = 5 ! U3$= " 13" : U4 =6 : U4$= " S" :U5=8:U5$ 
= " " :U6=9:U6$= ,, R" 

63910 U7=10:U7$="© U :U8=13:U8$="H" :U9=14: 
U9*>="U" :UU=4:UU*="R" 

63915 UR= 12:(JR$= H ^" :UE = 7:UE$='W :UF=11:U 
F$ ="H":RETURN 
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This is a horseracing game in two parts. In the first section players are 
presented with a board on which their counters are randomly moved by 
the computer. This offers players the opportunity to buy and sell horses, 
win or lose money, train their nags and prepare for stage two, the actual 
race. Prior to the race itself, each player has the chance to decide which 
of his horses he wants to enter and how he wants to place his bets. After 
players have issued ‘race instructions’ to their jockeys, the race is run 
and the winner collects both the prize money and any returns due from 
bets placed. At the start of the game each player has £10,000, and 
throughout the game balances are presented so that you can keep track 
of your fortunes. Play continues until someone reaches six figures, or 
until only one player is left in credit. 

0 GOSUB63900 : REM TOPTRAIhER.LIALLIYN 

1 DATA ANTELOPE,BEETLE,CRISPY,DRAGON,EAS 
Y EEL 

2 DATA FOX HUNTER,GREAT KING,HEFFALUMP ,I 
NDIANA,JEREMY 

3 DATA KANGA,LADY JANE,MARRY ME,NAUGHTY 
BOY,ORANGE MAID,PEACOCK 

10 G =US 

12 DIM H$<15),H<15>,F<15),P2<11>,P<15) 

14 DIM A*<7>,A<7>,P1<11> 

16 DIM OV< 15>,PQ<15),S<15>,0<15),G<3,15) 

,BH <7),BA(7 > 

20 FOR 1=0 TO 15 
22 READ H$<I> 

25 H<I)=INT<RND<1>*10+1> 

26 0 <I)=- 1 

29 NEXT I 

30 DATA 323,332,341,350,550,750,950,941, 
932,923,723,523 

40 DATA 414,374,334,294,413,373,333,293, 
412,372,332,292 

42 FOR 1=0 TO 11 

43 READ P2 < I ) :NEXT I 

44 FOR 1=0 TOll 

45 READ PI<I>:NEXT I 
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50 FOR I =0TO 1 0 : READ WB$< I > : NEXT 

60 DATA "HAS WON","DID VERY WELL","DID W 

ELL","PERFORMED WELL ENOUGH" 

70 DATA "HAS HELD HIS FORM RATING","D ID 
OK","WAS NOT TOO FAR BEHIND" 

80 DATA "WAS NOT SO GOOD","WILL LOSE POI 
NTS","WILL LOSE MORE POINTS" 

85 DATA "WILL LOSE PRETTY HEAVILY" 

100 POKEUG ,U4:POKEUB,U4:PRINTUR$; 

105 INPUT" h^-lOW MANY PLAYERS?<1-8N 
107 IFN<1ORN>8THEN10O 
110 FOR 1=0 TO N-l 

120 PRINT"Sf>IAME OF PLAYER NO."I+l"? 

125 INPUT A$< I ) 

126 IFLEN(A$(I))>8THENPRINT"MAX 8 CHARAC 
TERS":GOTO 125 

128 A(I)=10000 
130 NEXT I 
135 POKEUB,U2 

140 F'RINTU5$;"J TOPTRA I NER " 

141 PRINTU7$; "SJYGU ALL START WITH 10000 
POUNDS EACH." 

142 PR INT"EACH OF YOU IS AN 'OWNER/TRAIN 
ER 1 OF 

144 PR INT"HORSES WHICH YOU CAN BUY,SELL, 
TRAIN UP, 

146 PR INT"AND ENTER FOR RACES. 

148 pr i nt " mmmmBBBt rou make money out of 

PRIZE MONEY" 

150 PRINT"IF YOU WIN A RACE AND ALSO BY 
BETTING" 

152 PR INT"ON YOUR- OR ANYONE ELSE'S - HO 
RSES 

153 PR I NT" gSSSBMUUSHORSES IMPROVE WHEN TH 
EY RUN WELL 

154 PR INT"BUT LOSE VALUE WHEN THEY DON'T 
. IT COSTS"; 

155 PR I NT"500 POUNDS TO ENTER A HORSE FO 
R THE RACE" 

157 print"you go bankrupt you 

LOSE THE 

158 PRINT"CHANCE TO TRAIN,RUN OR BET ON 
HORSES. 

159 GOSUB 8900 
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200 P0KEUB,U3:P0KEUG,UF:PRINTU2$; "J" :M=0 
:POKEUG,UE:W3=0 

201 FOR 1=2 TO 38 STEP 9 
205 FOR J = 160 TO 960 STEP 40 
210 POKE G +J + I,42 

215 NEXT J 
217 NEXT I 

220 FOR 1=160 TO 960 STEP 200 

225 FOR J =2T038 

230 POKE G +J + I ,42 

235 NEXT J s NEXT I 

240 FOR 1=1T09 

245 POKE G +380 +I*40 r 32:NEXT I 

250 FOR 1=12 TO 28 

255 POKE G +560 + I,32:NEXT I 

257 FOR 1=0 TO N-1 

258 P <I)=0:POKE G+P2 <P( I > > + I,177 + 1 

259 NEXT I 

260 PRINTU2$; 

262 PR INT ,, ^gHSBmBMSSTART->^^CHANCEMff , « 

\SALEVyjTTRA ININGfel 

265 PRINT" MMMDMM T-Rft ININGM "U4$; "BANK B 
ALANCE "U2$J " IMbSALEVbM 
270 PR I NT" 

m*m&:hance^u 

275 PR I NT " MBBMMI WSALE WfTRA INI NGlljCH AN 

ce»asale™ 

280 print " mtmmmmim '' 

285 FOR J =0 TO N-l 

286 R$= M «" : IF A<J><0 THEN R$= M S" 

287 PRINTU4$;TAB<22>" 

290 PRINT"□"Rrfc;TAB(12)J+1 TAB<14>A*<J> T 
AB < 23 :> A < J ) 

295 NEXT J 

380 PRINTUF^;"a"R$;A$<M>"H'S GO..." 

310 Q7.=RN0C 1 >*6 + 1 

315 GCSUB9500 

320 POKE G +20 r 176 +QX 

330 GOSUB 9500 

335 POKE G+P2<P<M)) +M ,32 

337 X=P<M)+QX 

340 IF X>11 THEN X=X-12 

345 P^M)=X 

350 POKE G+P2<P(M)>+M,177+M 




Top Trainer 137 


355 GOSUB3000 

358 IF PCM)=0 GOTO450 

360 ON P <M) GOTO 6000,7000,8000,7000,600 
0,7000,6000,3000 ,7000 ,6000,8000 
375 PR INT"3" 

377 GOSUB3900 

380 GOSUB3000 

385 IF A <M> > =0 THEN 395 

390 REM 

395 M=M+1 

397 IF M=N THEN M=0 
400 GOTO £30 

450 POKEUG,UF:POKEUB,U6:PR INTUE$; 

45£ PRINT"JSOMEONE LANDED ON 'START', SO 
ITS TIME" 

455 PR I NT" IggFOR A RACE... 

460 GOSUB9500 
550 FOR 1=0 TO N-l 
557 FOR J=0 TO 15 
560 IFO(J)OI THEN 575 
56£ PRINT"LJH"A3><I>" 

563 PRINT"HH n H*<J)" COST"H<J)*500"POUNDS 
" :GOSUB5400 

564 PR INT"8HILL a"H$(J)"H RACE TODAY? < Y/ 
N> 

565 GET B$:IF B$="" GOTO 565 

570 IFB$="Y" THEN A<I)=A<I)-500:IF A < I > < 
0 THEN A <I> =A <I> +500iGOSUB9960:G0T0585 
57£ IF B$="Y" THEN S<J>=1:R=R+1:X=INTCH< 
J > +F < J ) /£ ) :GOSUB5000 
575 NEXT J 
535 NEXT I 

599 PR INT" J" :POKEUG,U3:POKEUB,U7:Z =0:A =0 

600 G.OSUB 4000 

610 M=INT<RND <1> *16>: IFLI3 >400THEN885 
6 15 IF S <M)=0 OR S <M)=5 THEN W3=W3+1:G0T 
0610 

6£0 P <M> =P1<RR) 

630 RR=RR+1:S<M>=5 

635 POKE G +P < M),1£9 +M 

636 Z=Z+H<M)+F<M> 

640 IF RORR THEN 6 10 
650 FOR J = 0 TO 15 

S55 IF S < J >< >5 THEN 66£ 
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653 H9=H<-J>+F<J> : IF H9< = 1 THEN H9=l 

SB© pr intu4$; " aaa M tab < a :>lefts< hs < j >, 1 :> •• = 

"INT <Z/H9) 

661 A=A+10 

662 NEXT J 

664 FOR 1=0 TO N-1:PR INTU6S; 

665 IF A< I )< =0THENPR INT"M"AS< I ) " HAS NO 
MONEY TO BET!":GOSUB9500:G0T0697 

666 PR INT"HHODDS ARE BELOW. ■" AS<I V BET? 

< Y/N > IBBl" 

668 GET AS: IF AS="" G0T0668 
670 IF AS="N" THEN 697 

672 PR INT"SNOW TYPE THE LETTER OF YOUR H 
ORSE" 

674 GET AS:IF AS="" G0T0674 
676 FOR J =0 TO 15 

678 IF AS=LEFTS<HS(J),1) THEN BH<I>=J 

679 NEXT J 

680 PRINTS 

II 

682 INPUT"^AMOUNT OF MONEY";AS:A=VAL<AS) 

683 IF A <I>-A<0 THEN PRINT"3MOT ENOUGH M 
ONEY IN THE KITTY!":GOSUB9500:GOTO680 

684 BA<I>=A:A<I>=A(I>-A 

697 NEXT I 

698 PR I NT"S 

ii 

699 GOSUB 4300 

700 FORJ = 0 TO 15 

710 IF S < J ) < >5 THEN 850 
720 IF PQ < J)=0 THEN 950 
730 IF PQ < J > = 1 THEN 970 
740 X = -1s Y=40 
750 M=INT < RND <1> *5) 

755 X=X-Y 

760 IF M>£ THEN 780 

765 IF M=2 AND Q<PQ<J>,J>>0 THEN Q<PQ<J> 
,J)=Q<PQ<J>,J>-1s GOTO780 
770 GOTO 850 
780 FOR 1=0 TO 2 

785 IF PEEK <G+P < J )+X > =32 THEN 800 
787 X=X+Y 

789 NEXT I 

790 GOTO 850 
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800 POKE G +P < J),38 

810 P(J>=P<J>+X 

880 POKE G +P< J > , 189 +J 

883 IF P < J ) >887 THEN PQ<J>=8:GOTO 835 
830 IF P (J ) =465 OR P<J)=386 OR P(J>=387 
OR P < J > =485 OR P < J)=486 THEN PQ<J>=1 

835 IF P < J)=8 15 OR P <J ) -855 OR P < J )=835 
THEN PQ < J ) =3 

840 IF P < J ) =803 OR P<J>=843 OR P<J>=883 
THEN 860 
850 NEXT J 
855 GOTO700 

860 GOSUB9000 

861 PR I NT" gSTHE WINNER IS a"H$< J > "H 
868 R=<RR+1>*1000 

863 PRINTA$<0<J>>" GETS "R" POUNDS PRIZE 
":A<0<J> )=A<0<J>>+R 
865 GOSUB9900 

867 GOSUB 9000 

868 Z = INT(Z/<H<J>+FCJ)>>! IF Z <1THEN Z = 1 

869 GOSUB 10000 : PR INT"Jggi"H$< J > " WON AT OD 
OS OF H Z"TO 1" 

870 FOR K =0 TO N-l 

878 IF BH <K)=J THEN A<K>=A<K>+BA<K>*Z+BA 
<K>:PRINTA*(K>"'S BET WINS!" 

876 NEXT K 

879 GOSUB9900 

880 R =0:RR =0 

881 FOR J=0 TO 15 

883 PQ(J>=0sS<J> =0 s P(J)=0 
384 NEXT J 
885 PR I NT" kJ 

836 GOTO 800 

950 X=1:Y=-40:GOTO750 
970 X =40:Y=1;GOTO750 
4000 FOR 1= 850 TO 867 
4010 POKE G+I,114!NEXT I 
4080 FOR I =450 TO 463 
4030 POKE G+I,114:NEXT I 
4040 POKE G+868,110 
4050 POKE G +464,110 
4060 FOR 1=0 TO 7 

4070 POKE G+40*I+504,115:NEXT I 
4080 FOR 1=0 TO 15 
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4030 POKE G+40*1+308,107:NEXT I 

4100 POKE G+948,125 

4105 POKE G +948,91 

4110 FOR 1=760 TO 783 

4120 POKE G+I,114 sNEXT I 

4130 FOR 1=920 TO 947 

4140 POKE G+I,114:NEXT I 

4150 POKE G+763,91 

4160 POKE G+723,87 

4170 POKE G+774,91 

4130 POKE G +734 ,.90 

4190 FOR 1=0 TO 3 

4200 POKE G+I*40+295,102:NEXT I 

4210 POKE G+306,77:POKE G+347,77:POKE G+ 

307.218 

4220 POKE G+906,78:POKE G+867,78:POKE G+ 

907.218 
4290 RETURN 

4300 FOR J=0 TO 3 

4330 POKE G+J*40+295,32:NEXT J 

4340 FOR I=0TO15:OV<I>=INT<H<I)*500+F<I) 

*250 >:NEXTI 

4350 RETURN 

5000 IF X< =0THEN PRINT"SrrHIS HORSE IS BA 
DLY OUT OF FORM":G0T05100 
5005 PR INT"SFOINTS FOR RACE..."X 
5010 FOR M=0 TO 3 

5020 IF M=3 THEN PR I NT"IJTHE 4TH QUARTER 
IS THEREFORE "X:Q <M,J)=X:G0T05100 
5025 PR INT"SPACE ORDERS FOR QUARTER NO." 
M+l " <0-3) 

5030 GET B$: IF B$ ="" THEN 5030 
5035 B=VAL<BSO 
5040 X=X-B 

5050 IF X<0 THEN X=0:B=0 
5060 Q(M,J)=B 
5070 NEXT M 
5100 GOSUB 9900 

5105 FOR M=0TO3:Q<M,J)=0:NEXTM:RETURN 
5110 RETURN 

5400 PR I NT " glCURRENT VALUE"F<J>*250+H<J>* 
500 

5405 IF <F<J)*250+H<J)*500)<=0 THEN PRIM 
T u WHICH IS PRETTY BAD NEWS!!!" 
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54 10 RETURN 

6000 QX=RNO <1>*10+1 

6010 XX=RND< 1 >*6+1 

6020 X=X'/.*-250 

6030 IF GY.>5 THEN X = -X 

6040 A<M>=A<M)+X!G0T0375 

7000 PR INT"H"A$(M)"," 

7005 PR INT"DO YOU WISH TO SELL A HORSE?< 
Y/N> " 

7010 GOSUB9800 

7020 IFA$="N" THEN 7050 

7025 GOSUB9000 

7026 FOR 1=0 TO 15 

7027 IF 0(I)< >M THEN 7045 

7028 PRINT"MDO YOU WISH TO SELL " H$<I)"? 
<Y/N>":GOSUB9800 

7030 IF A$="N" THEN 7040 

7031 GOSUB9000:BB=INT <H(I)*500+F<I>*250) 
: IF BB<0THEN BB=0 

7032 PRINT"^"H$<I>" COST"H<I>*500". NOW 
WORTH"BB 

7033 PRINT"<IF NO ONE WISHES TO BUY, TYP 
E ’S')" 

7034 INPUT"H 3 D 0 PLAYER NO " ; B s 

7035 IF B =9 THEN PR INT"OK I'VE BOUGHT IT 
FOR"BB:GOSUB9500 

7036 IF B =9 THEN 0<I>=-1:A<M>=A<M>+BB:GO 
TO7040 

7037 IFB>NORB<1THEN7034 

7038 INPUT"QANO AT WHAT PRICE";A 

7039 0 <I>=B-1:A<M)=A<M)+A:A<B-1>=A(B-1>- 
A 

7040 GOSUB9000 
7045 NEXT I 

7050 Q%=RND<1>*15 

7060 IF 0 <Q%)< >-1 THEN 7050 

7070 GOSUB9000 

7080 PR INT"£3" A$<M) " , I COULD SELL YOU "H 
$<Q X.) 

7090 PR I NT "FOR " H < QY > *500 " (Y/N> 

7100 GOSUB9300 
7105 GGSUB9000 
7 106 PR TNT"a" 

7110 IF A$="N" THEN 375 
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71 20 F’R I NT "90K- DONE ! " : 0 <QX> =M: A <M> = A <M> 

-H <. Q'A :> *500 : G0T0375 

8000 FOR 1=0 TO 15 

S0 10 IF 0(I)OM THEN 8 100 

80 12 IF A<M><=0 THEN PR INT"grOU ! RE BANKR 
UPT,..":GOSUB9500:GOSUB9000:G0T08100 
80 15 PR INT"3"A$ < M)",HQW MUCH MONEY WILL 
YOU 

8020 PR INT"SPEND ON TRAINING "H$<I> 

8030 INPUT A 

8032 IF A <M)-A<0THEN PRINT"NO MONEY IN T 
HE KITTY!":GOSUB9500:GOTO8050 
8034 Q!X=RND< 1 ) *5+2 

3036 B=INT<QY.*AY3000> : IF B >5 THEN B = 5 

8040 F< I >=F<I)+B:A<M)=A(M)-A 

3050 GOSUB9000 

8100 NEXT I 

3200 G0T0375 

9000 PR INT"a 

II 

9005 FOR C=0 TO 2 
9010 PRINT" 

":NEXT C 
9020 RETURN 

9500 FOR C = 1 TO 1400 .‘NEXT C 
9510 RETURN 

9800 GET A$:IF A$="" GOTO9S00 
9810 RETURN 

9900 PR I NT " jJ^RESS ANY KEY*" 

9910 GET B$!IF B*="" GOTO 9910 
9920 RETURN 

9960 PR I NT" ;f\IO MONEY IN THE BANK. 

3962 PRINT"IT COSTS 500 POUNDS TO ENTER 
A HORSE AND 

9364 PR INT"YOU ONLY HAVE"A<I}"LEFT \ 

9965 GOSUB9900 

9966 RETURN 

10000 P8 <1>=803:P8 <2 > =843:P8(3)=883 

10005 GOSUB9000 : PR I NT " gjFORM ALTERATIONS 
AS RESULT OF THIS RACE" 

10006 PRINT"- 


10010 FOR P8=0TQ10:F0RP9=1 TO3 

10020 IF PEEK<G+P8<P9))=32 THEN 10050 
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10030 FOR W7=0TO15 

10031 IF P<W7>< >F'3(P9> THEN 10040 

10033 PRINTH$<W7>;" ";WB*<P8> 

10034 F < 107 y =F < W7 > + I NT < ( 1£-P8)*.75) 

10040 NEXT W7 

10050 P8<P9)=P3<P9)+1 :NEXT P9,P8 

10055 PR I NT" g8I F ANY HORSE HASN'T BEEN ME 

NTIONED HERE 

10057 PR INT"THEN IT HAS LOST 4 POINTS. I 
T SHOULD HAVE STAYED AT HOME!" 

10058 GOSUB9500 : GOSUB99O0 : PR I NT "LI" 

10060 FOR W7=0TO 15 s IF S<W7)<>5 THEN 1007 
0 

10065 F ( W7 ) =F (W7 ) -4 

10067 IF F<W7>>£0 THEN F ( W7 ) =F <W7 ) - I NT<R 
ND < 1 > *4 > 

10068 PR INT"S"H$<W7 ) "H" ; TAB < 15 ) "OWNED BY 
u A$ < 0 < W7 >> 

10069 PR INT"VALUE BEFORE: "OV<W7TAB< 
££) "VALUE NOW: "H < W7 )*500 +F < W7 > *250 

10070 NEXT W7 
10090 RETURN 

63900 REM COMMODORE 64 CLR/SOUND CODES 
63902 US=1024:UC=55296:UG=53£81 

63904 UB =53280:UV = 54296:UA = 54277:UD=54£7 
8:UH=54273:UL=54272 

63905 UW=54276:U0=0:U0$= ,, H" : U 1 = 1 :Ul*="aT 
:U2 =2:U£$="3" 

63906 U3=5 : U3$= "El" : U4 =6 : U4$ = "3” : U5=8 : U5T 

... =9:U6T="K" 

639 10 U7= 10 : U7$= "88" : U8= 13 : U8$= "SI" :U9=14: 
U9$="U" :UU=4:UU$="§|" 

63915 UR=12:UR*="a" : UE=7:UE$="H":UF= 11 :U 
F$="H":RETURN 
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This is the traditional game of Battleships to be played against the 
computer. For anyone who hasn’t come across the game before (does 
such a creature exist?), there are full instructions included in the listing. 
The winner is the first to destroy all six enemy ships, and there are levels 
of difficulty (1 or 2) which must be entered before battle can commence. 

0 PR INT"iJ" : G0T09 


1 

** 


** 

£ 

** 

BATTLESHIPS BY PAUL STANLEY 

* * 

3 

** 

FOR THE SINCLAIR ZX SPECTRUM 

** 

4 

* * 


** 

5 

** 

CONVERTED FOR THE COMMODORE 64 

** 

6 

# * 

BY ANDY GREEN 

** 

7 

** 

17 AUGUST 1983 

** 

8 

** 


** 


9 POKE53280,0:POKE53£81,0:PR INT"HJ" ; 

10 GOSUB9000:REM ** SET-UP GRAPHIC CHARS 
15 GOSUB7000:REM ** DISPLAY INSTRUCTIONS 
20 GOSUB8000:REM ** ENTER SKILL-LEVEL/ 
POSITION SHIPS ON GRID 

50 ZX=43:Q=16:P=18 

100 ZX=PEEK <1024+P+Q*40>:POKE 1024 +P +Q*40 
,43 

110 P R I NT " 

YOUR MOVE 

120 PR I NT" SiBI® v 10VE YOUR CROSS ABOUT WITH 
5-8 <L,U,D,R>FIRE BY PRESSING 9." 

130 POKE1024+P+Q*40,ZX 
135 POKE650,128:GETA$ 

140 IFA$="6"THENQ =Q +1; IFQ=17THENQ=5 
150 IFA$="7"THENQ=Q-1:IFQ=4THENQ=16 
160 I FA*>="5"THENP=P-1:IFP=17THENP=£9 
170 IFA$="8"THENP=P+1:IFP=30THENP=18 
180 IFA$="9"THEN200 

190 ZX = PEEK<1024 + P+GU40):POKE10£4+P+Q*40 
,43 

195 GOSUB20000:P0KE54273,34:P0KE54272,75 
:FORX = 0TO10:NEXT:P0KE54276,0:GOTO 130 


Battleships 145 


£00 GOSUBE0000:P0KE54£73,36:P0KE54£7£,85 
:FORX=0TO10:NEXT:P0KE54876,0 
£05 POKE 10£4 +P+Q*40,ZX 
£10 FORF = 1TOG 

££0 IFH ( F)=0ANDQ =F(F)THENIFP=G<F >ORP=G<F 
)+1THENE50 
£30 NEXTF 
£40 GOTO300 

£50 H(F) = 1!FORG = 7TO0STEP- 1:POKE 10£4+F<F> 
*40 +G <F >,S£ 

£51 POKE10£5+F CF> *40+G<F),83:P0KE55E36+F 
<F > *40 +G <F >,G:POKE55£97+F(F)*40+G<F),G 
£60 FOR I=0TOG*8STEPG+1:GOSUB80000:P0KE54 
£7£ , I:P0KE54£73,I*£:NEXTI 
£65 NEXTG 

£67 P0KE55E96+F (F ) *40+G <F ) ,5 : F'0KE55£97+F 
(F ) *40 +G <F ) ,5 

£70 S1=S1+1:IFS1=6THEN£000 
300 PRINT" 

MY MOVE 

305 G = <INT < RND<1)*1£/8L)> *9L+1:F =INT< RND 
< 1 ) * 1 £ + 1 > 

3£0 IFC$<F,G)="X"THEN305 
330 C$<F,G>="X" 

350 Y=F +4!X=G+3 
370 FOR 1 = 1TOG 

376 IFY=Y<I)THENIFX=X <I)ORX=X <I> + lTHEN40 
0 

385 NEXT I 
390 GOTO 100 

400 FORO = 7TO0STEP- 1:POKE 10£4+Y<I)*40+X<I 
>,8£ s POKE10£5+Y<I!>*40+X(I > ,83 

401 P0KE55£96+Y<I)*40+X<I>,0:P0KE55£97+Y 
< I ) *40+X <I),0 

4£0 FORL=0TOO*8STEPO+1:GOSUB£0000:P0KE54 
£7£ ,L:P0KE54£73,L*£:NEXTL 

4£5 NEXTO:P0KE55£96+Y<I)*40+X <I>,5:POKES 
5£97+Y<I)*40 +X <I > ,5 

430 C$<Y<I>-4,X <I)-3) = "X":C$<Y<I)-4,X <I) 
- £ ) = " X 11 

440 SC£=SC£+1:IFSC£=6THEN£100 
450 GOTO 100 

1130 POKE10£4+Y*40+X,74 
1140 RETURN 
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2000 PRINT" LfflMBBW ELL DONE ! YOU DESTROY 
ED ALL THE COMPUTER'S FLEET !!!" 

2050 GOTO2200 

2 100 PRINT"LBHHIH»AD LUCK ! THE COMPUTER 
SUNK ALL YOUR SHIPS !!!" 

2200 PRINT" MglBMP RESS ANY KEY TO PLAY AGA 
IN..." 

2300 IFPEEK <197)=64THEN2300 
2400 PRINT"J"; SRUN15 

3265 FOR 1 = 1 TOG s IFY=Y<I>THENIFX=X<I)THENS 
210 

7000 A$="BATTLESHIPS 

7010 PR I NT "gHSU" ; : FORF = 1T05 s FORG= 1 TO 1 4 ! PR 
INTMID$< "aBEaHXXa 11 , RND < 1 >*10 + 1 , 1 >; 

7015 PR INTMID$ C A$,G,1>; :GOSUB20000:P0KE5 
4272,G:P0KE54273,Gt£:NEXTG ,F 
7020 P0KE54276 ,0 i PR I NT " gDaDfflBMM " ; 

7050 PRINT" <C> PAUL STANL 

E Y" 

7051 PRINT" CONVERTED BY ANDY GRE 

EN" 

7 100 PRINT" KSfiKgP LA Y THE COMPUTER AT BATTL 
ESH IPS " 

7 110 PR INT" KKHTHE WINNER IS THE FIRST TO 
DESTROY ALL SIX ENEMY SHIPS." 

7 120 PRINT" Mflk FULL INSTRUCTIONS ARE GIVE 
N AS YOU PROCEED. " 

7130 PRINT"ffl^RESS ANY KEY TO START ..." 
7140 IFPEEK <197)=64THEN7140 
7150 PRINT"J":RETURN 

8000 INPUT"ENTER SKILL LEVEL <1=EASY OR 
2 =H ARD > " ; SL : PR I NT " 

8005 IFSL <>2ANDSL<>1THEN8000 
80 10 PR I NT " : FORF =5TO 1S : PR I NT" 

jjjjjjjjjjj |_ jjjjjjjjjjj |_n s nextf 

8025 PR I NT " HH! BATTLESH 

I P S" 

8050 PR I NT 11 BMC " s FORF = 1 TO 12 ! PR I NT » BBS" CHR$ 
<F+64>:NEXTF 

8060 PRINT" ; :FORF=1T09:PRINTMID 

$<STR$<F),2 > ; :NEXTF!PR INT 
8070 PR INT"g§Mg3"TAB < 13 > "|—I®" 

8080 PR I NT "USUI YOUR SHIPS 
PS 


MY SHI 
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SITION 6 SHIPS BY TYPING ' D4 ' (FOR EXAMP 
LE"; 

8101 PRINT".'). THEN PRESS ^NTERB. " 

8200 DIMR$ < 3 ), Y ( 6 >, X (6 >, H (6 ) 

8205 PRINT 

8206 FORF = 1T06 

8210 PRINT"n" ; : INPUTAS 

3220 IFA$<"A"ORA$>"M M THENGOTO8210 

8230 Y=ASCCA$>-60 

8250 X=VAL(MID*<A$,2>>+3 

8260 IFX < 40RX>14THEN8210 

8265 FOR 1 = 1T06: IFY = Y(I)THENIFX=X<I)-10RX 
=X<I)ORX=X(I) + 1THEN8210 
8270 NEXTI 

3280 POKE1024+Y*40+X,77:POKE 1025 + Y*40+X, 
78 

8290 Y<F)=Y:X(F)=X 

8300 GOSUB20000!P0KE54272,149:P0KE54273, 
68:FORX = 1TO 15:NEXT:P0KE54276,0 
3310 NEXTF 

II ■ 

r 

S40 1 PRINT" 

II ■ 

r 

8402 PRINT" 

II ■ 

r 

8500 DIMF < 6 >, G < 6 ) 

8510 FORF =1TOG 

86 10 Y=INT(RND(1>* 12>+5:X=INT<RND<1>*11) 
+ 18 

8620 FORG =1T06 

8630 IFY=F(G)THENIFX = G <G)ORX = G(G) + 10RX=G 

(G >-1THEN8610 

8640 NEXTG 

8650 F(F)=Y:G(F>=X 

3700 NEXTF 

3720 DIMC$<12,12) 

3740 3C2=0 ’ S1=0 
3300 RETURN 

3999 REM ** COPY CHARACTER SET FROM ROM 
INTO RAM WHERE IT CAN BE ALTERED 
9000 PRINT"iJfS3 PLEASE WAIT ... ":P0KE563 

34,PEEK<56334>AND254:POKE 1,PEEK<1)AND251 
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9001 FORX=0TO2047:POKE 14336+X,PEEK <53248 
+X>:NEXT:POKE 1,PEEK<1>0R4 

9002 PQKE56334,PEEK <56334)OR1:P0KE53272, 
31:FORX=0TO150:READA:POKE 14856+X,A:NEXT 
9010 DATA0,0,0,0,224,248,252,254,255,255 
,255,255,254,252,248,224 

9020 DATA31,31,31,255,255,31,31,31,224,2 

40,248,248,248,248,240,224 

9030 DATA0,63,63,63,63,63,63,0,0,63,63,2 

55,255,63,63,0 

9040 DATA0,224,240,248,248,240 ,224 ,0,0,0 
,60,63,63,60,0,0 

9050 DATA0,0,252,254,254,252,0,0,0,0,0,2 
22,255,222,0,0 

9060 DATA 128,128,128,128,128,128,128,255 
,129,129,129,129,129,129,129,255 
9070 DATA0,2,34,59,63,255,127,0,0,0,32,4 
8,120,126,124,0 

9080 DATA0,38,41,41,41,41,38,0,0,20,20,2 
0,20,20,20,0,0,76,82,68,72,80,94,0 
9090 DATA 128,128,208,164,254,231,255,255 
,128,128,136,151,200,174,252,255 
9999 RETURN 

19999 END 

20000 POKE54276,0:P0KE54276,17:P0KE54296 
,15:P0KE54277,0:P0KE54278,240:RETURN 
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You are the commander of the sole surviving laser base on Earth. The 
fleets of Alien spacecraft are moving in for the final onslaught. Some 
swoop down, lasers blasting; others sit at the top of the screen launching 
unstoppable bombs which must be dodged. If you wipe out one fleet, 
another will appear in its place. In short, you haven’t a chance. But 
make sure you take as many of the nasties with you as you can before 
you go. 

10 POKE53230,0: P0KE5328 1 ,0: PR I NT 11 LJbI" 

15 HS = 0 

18 PR INT "LJCHARACTERS BEING DEF I NED , PLEAS 
E WAIT":GOTO9000 
20 GOSUB8000 

2 1 X=15 s SC = 0 s L=3 s M=INT <RND <1)*18):G=3:H= 

I NT (RND (. 1 >*18) 

30 A$=" #| 4| 4 I 4| 4| 4| ":B$=" - - 

—-— " : C$= " 

35 D$=" “- —_ ":QQ =1 

40 D I = 1 : Y=0 : H I = 0 : CD$ = " 

IM" : SS= 1024 :CS = 55296 

80 PR I NT"13"SPC <17) "kHI-SCORE"HS 

100 IFQQ=1THENAA$=B$:QQ=2;G0T0120 

110 IFQQ=2THENAA$=A$:QQ=1 

120 PR INTLEFT$< CD$,4)SPC(Y)"k"AA$ 

140 X = X-2 *(PEEK <197)=23ANDX <31 )+2*<PEEK< 

197) = 12 ANDX >1> 

150 PRINTCD^TAB(X);" /| 

155 IFPEEK <197)=36THENG0SUB1000:PRINT"ffk 
SCORE"SC 
160 Y=Y+DI 

170 IFY=0ORY=21THENDI=-DI 
175 PR INTLEFT^<CD$,L+ 1 >SF’CCM) " 

180 L=L+1:M=M+INT<RND <1)*4 >-INTCRND <1>*4 

) 

185 IFL = 21THENL =3:D$=" " 

186 IFM>32THENM=31 

187 IFM< 8THENM = 9 

133 PRINTLEFT$<CD$,L+1 )SPC(M) n g"D$ 
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130 PRINTLEFT$<CD$,G+1>SPC<H> " 

£00 G=G+3:PR INTLEFTS<CD$,G+1>SPC<H)"L\": 

IFG <>21THEN210 

£0 1 G =3 s PR INTCD^SPC <H)" ":H1=H:H=INTCRN 

D < 1 > * 17 :> + 1 

£02 IFH1= X+30RH1=X+20RX1= X + 1THEN4000 
£10 REM IFRNDC1>>.8THENIFD$<>" "THE 

NGOSUB3000 
300 GOTO 100 

1000 IFPEEK(SS+X+1££)< >3£THENHI = 1 
1005 IFPEEK<SS+X+2+L*40><>32THEN1080 
1007 IFPEEK <SS+X+3+L*40)< >3£THEN1080 
1003 FORZZ =£0TO2STEP-1 

1020 POKESS + ZZ*40+X+2,103:POKECS+ZZ *40+X 
+2,1 

1030 NEXT 

1031 FORZZ =£0TO£STEP-1:POKESS+X+2+ZZ *40„ 
32:NEXT 

1040 IFHI<>1THEN1050 

1041 XY=X-Y+£:IFXY<1THENXY=1 

1042 LETA*=LEFT$<A$,XY-1 ) + " ,, +MID^<A^, 

XY + 3 > 

1043 LETB$ = LEFT*<B$,.XY-1 > + " "+MID$<B*, 

XY+3 > 

1045 SC=SC+10:PRINTLEFT$<CD$,4)SPC<X+1)" 

■HIM" 

1046 FORDL=1TO50!NEXTDL 

1048 PRINTLEFT$CCD$,4)SPC<X+1)" 

1050 H I =0 

1055 IFfl*=C$THEN2000 
1060 RETURN 

1080 IFG=1THENIFH=X+1ORH=X+2THENRETURN 
1031 FORZZ=£0TOL3TEP-1 

1082 POKEZZ *40+SS+X+£,103:POKECS+ZZ *40+X 
+2,1 

1083 NEXT 

1084 FORZZ=£0TOLSTEP-1:POKESS + X +2 + ZZ *40, 
32:NEXT 

1090 MX=X-M+£:IFMX<1 THENRETURN 

1130 D$=LEFT$<D$,MX-1>+" "+MID$<D£,MX 

+ 4):SC =SC +20 

113 1 PRINTLEFT$(CD$,L + 1)SPCCX + 1> " || I I " 

1135 FORDL=1TO50:NEXTDL 

1137 PRINTLEFT$<CD*,L+1>SPC<X+1)" 
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1140 RETURN 

£000 PR INTLEFT^ < CD£,4)SPC(Y)C$ 

£010 FORF=0TO£5:PRINT ,, aaHfiKBIHBIH ,, SPC<F) " 


^ ^ " 

£0£0 IFF<>0ANDF< >3ANDF<>6ANDF< >9ANDF< >1£ 
ANDF <>15THEN£040 

£0££ FORI=6TOESTEP-2:PR INTLEFT^CCD^,1 + 1) 
SPC <F + 1 > " " i NEXT I :PRINT"Mi"SPC(F + l ) “k 

♦ I " 

£040 NEXTF 

£04£ FORF =£5T034STEP£ 

£046 PRTNT ll MBlBMaiBM^ ,, SPC(F) 11 ^ " 

£046 PR I NT " MMSfflW" SPC (28 ) " " :GOTO 


30 

3000 IFMID$<D$,2><> THEN3080 
3050 RETURN 

3080 IFG =1ANDH=X+£ORH=X+1THENRETURN 


3160 RETURN 


4000 

; "ail 

4040 

4050 


FORF = 1T075:PRINTLEFTS<CD$,2£>SPC <X) 
i i i loarnDB " :NEXT 

IFSC>H5THENHS =SC 

PRINT"aHafflHHHHfflaH"TAB( 12) "aflPAME OV 


ER" 

4060 PR I NT:PR INT" PRESS ANY KEY TO PL 
AY AGAIN 

4070 POKE 138,0:UJA IT19S, 1 
4080 PRINT" aU":GOTO£l 
4993 END 

8000 PRINT"J"TAB< 12) "a|G A L A X I A N S " 

:PRINTTAB <12)" " 

8010 PR INTSPRINT"FLEET AFTER FLEET,THE I 
NVADERS FORM AND WAIT TO ATTACK." 

8020 PR INT"HTHE INVADERS IN FORMATION DR 
OP DANGEROU-S BOMBS TO TRY AND DESTROY Y 
OUR 11 ; 

8030 PRINT" LASER BASE.DIVING ALIENS A 
RE WORTH MORE POINTS." 

3040 PR INT"AS SOON AS ONE FLEET OF ALIEN 
S HAVE BEENDESTROYED THEIR MOTHER-SHIP W 
ILL"? 

8050 PRINT" ARRANGEA NEW BATTLE LINE." 
8060 PRINT 11 MMZ =LEFT X=R I GHT M=F IRE " 

8070 PR I NT "MISPRESS ANY KEY TO START.":PO 
KE198,0:WAIT 198,1 SPRINT"J":RETURN 
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8999 STOP 

9000 IFPEEK <56)=48THENP0KE53272,(PEEK <53 
272 >AND240) + 12 :GOTO9500 

9002 P0KE56,48:P0KE52,48:CLR:P0KE56334 ,P 
EEK <56334 >AND254:POKE 1,PEEK<1>ANDES 1 

9003 FORF=0TO2047:POKE 12288+F,PEEK<53248 
+ F):NEXT:POKE 1,PEEK<1)0R4 

9004 P0KE56334, PEEK <56334) OR1 

9006 P0KE53272,(PEEK <53272 >AND240 > + 12 
9008 FORF =0TO11 1:READA:POKE 12808+ F,A:NEX 
T 

9010 DATA34,35,36,62,15,7,2,14 

9020 DATA36,196,228,252,240,224,64,112 

9030 DATA2,3,7,63,39,39,34,3 

9040 DATA64,192,32,124,223,228,68,192 

9050 DATA 128,166,242,123,61 ,47,39,3 

9060 DATA 1,101,79,222,138,244,196,192 

9070 DATA0,240,248,252,254,6,6,6 

3073 DATA 145,82,0,3,192,0,74,145 

9080 DATA7,31,127,170,170,127,31,7 

9090 DATA255,255,255,170,170,255,255,255 

3 100 DATA 192,£40,252,170,170,252,240,192 

9110 DATA18,19,18,28,4,2,1,1 

9120 DATA72,200,72,56,32,64,128,128 

9300 DATA 1,31,63,127,255,193,192,192 

9500 GOTO20 
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Kids and computers just don’t mix. Not if it’s your computer that is. 
They take up far too much valuable hacking time. However it has to be 
conceded that micros do have a role in the pedagogic process, and so it is 
not without some reluctance that we have included a selection of 
educational programs, of which this is one. This is for the very small, 
and has been designed to keep them quiet while you have an algorithm 
to work on, whilst at the same time teaching them the basics of counting. 

The program sets a series of counting problems from the numbers one 
to nine. You know, count the ships, flowers, cats, houses or whatever 
and—if the answer is correct—reward the little angels with ships 
moving, cats smiling, telephones ringing or the like. 

0 REM***C0UNTAB0UT***64 VERS ION***H . L1ALUJ 
YN 

I GOSUB63900 

£ POKEUG , UF : POKEUB ,U4 s PR INTU7$; "L Jaanm imta 
BOUTH" 

3 PR INT"gJA COUNTING GAME FOR CHILDREN AG 
ED £-5. 

5 GOSUB1000 

6 PR INT"*SSPRESS ANY KEY TO START PROGRAM 

II 

7 GET A$:K=RND<1>:IFA$="" THEN 7 
18 POKEUG ,U9 s POKEUB ,UE : PR INT"^J 

£0 PR INTI IRS? LEASE PRES 

S ANY KEY" 

£5 GET B$:K=RND<1):IF B$="" THEN £5 
30 PR INT"J" 

100 Q>£=RND < 1 ) *9 + 1 
105 K = INT(RND <1)*5 + 1) 

110 J=6!FOR 1=1TOQX 
1£0 IF I=40RI=7THENJ =6 

140 ON I GOSUB 90£0,90£0,9020,9010,9010, 

90 10,9000,9000,9000 
150 PRINTTABCJ); 

185 IF X=1 THEN 135 

170 ON K GOSUB 10000,11000,12000,13000,1 
4000 
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132 GOTO 195 

135 ON K GOSUB 20000,21000,32000,£3000 ,£ 
4000 

135 J — J + 11:NEXT I 

196 IF X=1 THEN X=0:GOTO300 

£00 GET A$:IF A*<>"" THEN £00 

£05 PRINTUF^; "SH 0 W M A N Y "N*" ? " 

£10 GET A$:IF A$="" THEN £10 

£ 1£ IFASC<A$> C490RASC(A*)>57THEN£10 

£15 PRINTUF*; "M"TAB< 18) A*: FOR L=1TO500:N 

EXT L 

£20 IF VAL<ASO=Q% THEN £50 

£25 IF VAL<A30=Q%+1 OR VAL<A*>= Q%-1 THEN 
£80 

£30 PRINTU2*; 0 , WRONG AN 

S W E R" 

£35 GOSUB9500:GOTO200 

£50 X =1:GOTO 1 10 

£30 IF VAL<ASO=0 THEN £30 

£8£ PRINTU6*; "Mu' E R Y NEARLY ! " 
£35 GOSUB3500 '• GOTO200 

300 GOSUB9600:PRINTU4$;"SC O R R E C T ! 

II 

305 IF QX.= 1 THEN PR I NT "HI" QX." "LEFT$<N 

S,LEN(N$;>-£> s GOTO320 
310 PR I NT " gg0" Q'/. " "N* 

320 GOSUB7000 s GOTOE0 
1000 REM INSTRUCTIONS 

1010 PR INT"HTHERE IS NO NEED TO USE THE 
1020 PRINT"'RETURN KEY' IN THIS PROGRAM. 

n 

1030 PR INT"JflONCE THE CHILD KNOWS WHERE T 
HE NUMBERS" 

1040 PR INT"FROM 1 - 9 ARE ON THE KEYBOAR 
D, " 

1050 PR INT"YOU CAN JUST SIT BACK AND LET 
THE" 

1060 PR INT"COMPUTER DO A BIT OF TEACHING 
! " 

1100 RETURN 

7000 PRINTU0$;"g"TAB<30>; 

7005 ON QX GOTO 7100,7200,7300,7400,7500 

,7600,7700,7800,7900 

7 100 PR I NT "/I Big! OEJD ": RETURN 
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7200 

7300 

7400 
7500 
7600 
7700 
7800 
7900 
9000 
9010 
9828 
3508 
9680 

9605 
9610 

9615 
9620 

10000 REM HOUSE DRAWING 

10005 N$= ! 'H OUSE S":PRINTU6$; 

10010 print" 

mm 0 a Balaam a m a m 

10050 RETURN 
11000 REM CATS 

11005 N$="C A T S":PR INTU0$; 

11010 PR I NT" I^ilEiaESI 1111®^^ 

9^ nauim; 

11020 pr i nt z u "; 

11050 return 

12000 REM TELEPHONE 

12005 N$="T ELEPHONE S " : PR INTU2$; 

12010 pr i nt o;jai 

sum"? 

12050 RETURN 
13000 REM BOATS 

13005 N$="S H I P S":PR INTU2$; 

13010 PR I NT 11 BgISgBl" IIF^; » H 3F * 3 “gaggill 

13050 RETURN 
14000 REM FLOWER 

14005 N$="F LOWER S":PRINTU6$; 

14010 print"tibid m u 3 $; "ii 

israidB©"; 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PR I NT 
PR I NT 
PR I NT 
FOR L 
PR I NT 


.—.Him 
_ %mm/ 

r-UfllUKIIIIB] 

_ -imm /luifii 

,—h smm i —\nmm 


/ 


-‘RETURN 
:RETURN 
:RETURN 
:RETURN 
:RETURN 
:RETURN 
:RETURN 
" BBim '—1 Him ^ " : RETURN 

l! MH" : RETURN 
" : RETURN 

M " : RETURN 

=1T01700:NEXT L 


FOR L = 1T04 
PRINT" 


NEXT L 
RETURN 
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14050 RETURN 

£0000 REM HOUSE CORRECT 

£0005 PRINTU6*; 

£0010 PRINT 11 JlgRiar V3DDDQDDM7 O O 

¥ IIIIIIB] ^ 

£0050 RETURN 
£1000 REM CATS 
£1005 PRINTU0S; 

£10 10 PRINT"|f^ ■ IBBBI£I0=^3'-’ 

Br-aiiiiw- 

£ 10£0 pr i nt "ly ^0000 gu "; 

£1050 RETURN 
££000 REM TELEPHONE 
££005 PRINTUF*; 

££006 PRINT ,, ifRINGglgli ,l ;U£$; 

££0 10 PRINT" IBBBBIE9 m - M £SBUE&<0)|g 

mmM mam"; 

££0£0 PRINT"inimi^fl EDO 

££050 RETURN 
£3000 REM BOATS 
£3005 PRINTU£$; 

£3007 FOR H =JTO1 STEP -1 

£30 10 PRINT " mm* BSlESa 29IIIIII □ 

UIIIH1I"; 

£3030 PR I NT" I WIrl ■MM" UF$; " U_zT m nSIIII 

IBET^: : : s : a^LU^EBSlBB M ; 

£3040 NEXT H 

£3045 PR I NT "EM BBBBS M310OQE3B □ 

dflflBBBfll" ; 

£3050 RETURN 
£4000 REM FLOWER 
£4005 PRINTU6*; 

£40 10 PRINT" BBBMM MBBHBBTOB RABBET' U3$ " Efl l QQ 

CM\ dl /■" U4*" Qocnnrngni«Q" ; 

£40£0 PRINT" 

£4050 RETURN 

63900 REM COMMODORE 64 CLR/SOUND CODES 
6390£ US=10£4 s UC=55£96:UG=53£81 

63904 UB=53£80:UV=54£96:UA=54£77:UD=54£7 
8:UH=54£73:UL=54£7£ 

63905 UW=54£76:U0 = 0:U0$= ,, B" : U 1 = 1 : U 1 *= 11 
:U£=£:U£$="3 n 

63906 U3 = 5 i U3$= " : U4 =6 : U4$ = " m" :U5=S:U5$ 
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= "":U6 =9:U6$ ="fg" 

639 10 U7 =10! U7$= " gl" :U8=13sU8^=" SI" :U3=14: 
U9$= M U" : UU=4 : UU$= "H" 

63915 UR= 12 : UR$= "2b3" : UE=7 : UE$= "D" s UF = 1 1 :(J 
F$="H" •RETURN 



Tanx 


Tanx is a two player game in which two guns are placed on either side of 
a range of randomly generated hills. Each player takes turns in 
attempting to hit the gun on the other side by entering the angle and 
velocity of fire. The winner is the player with the highest score after a 
total of seven hits have been made. Your best chance of success is to use 
the smallest possible angle of elevation for a given velocity and, at 
higher speeds, it may be possible to fire through one of the hills. 


10 

REM 

*************************** 

1 1 

REM 

** 


** 

12 

REM 

** 

TANX 

** 

13 

REM 

** 


** 

14 

REM 

** 

ADAPTED FOR THE 

** 

16 

REM 

** 

CBM 64 

** 

17 

REM 

** 


** 

18 

REM 

** 

BY DAVE PONTING 

** 

19 

REM 

** 

WRITTEN BY STANLEY 

** 


20 REM *************************** 

22 POKE532S0,0 i P0KE5328 1 , 0 : PR I NT " Ml" : AT$= 

24 GOSUB7000 

25 SC <1> =0 s SC <2 > =SC <1) 

27 GOSUB9000 

30 C =0:GOSUB8000 

35 IFRND <1> >.5THENC=C+1:GGSUB700 
40 GOSUB100 

44 C-=C+1 

45 IFC=8THENPRINT"J" ; :GOTO30 

46 GOSUB700 

47 C=C+1 

48 IFC=8THENPR INT" J" .? : GOTO30 
50 GOTO40 

100 REM —!ER 1 

105 PRINTLEFT$<AT$,22>SPC<16V 
110 PRINT" 

ii 

112 PRINT" 

II 

115 PRINTLEFT$<AT*,23>SPC<16)"PLAYER 1" 
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120 A = -l:INPUT"ENTER ELEVATION";A$ 

122 IFA$< M 0"ORA$>"90"THENPRINT" < 0-9 

0 GOTO 115 

130 ;; input 

"ENTER VELOCITY";VEL 

132 IFVEL<2ORVEL>10THENPRINT"imi®MMIimfl 
smmmmmt 2-10 >"; sprint^":goto 130 

135 POKESO+4 ,129s POKES©+18,123 
140 MAX=120+5*VEL:A=VAL(A$) 

145 E=A/10:E1=E/4:E2=E/16 
14S S1=PEEK < V + 1>-16 

147 PP =PEEK < V +31> s PP=PEEK <V + 30>:P0KES0+4 
,128:POKESO+18 ,128 

148 POKEV +4,PEEK (V > +8 s POKEV +5, S 1:POKE204 
2,11s POKEV +21,7 

149 PP=PEEK <V+31> s PP =PEEK < V +30):POKESO+l 
1 ,33 

150 F0RG=32T0316STEPVEL 

152 PP =PEEK <V +31>:PP=PEEK(V+30 >:POKESO+ 1 
1 ,33 

155 P0KES0+8,G/2 

160 POKEV+ 4,G+255*(G >255 >:POKEV+5, SI 
165 IFG>255THENP0KEV+16,PEEK <V + 16)0R4 
167 IFG<256THENP0KEV+16,PEEK(V+16>AND251 
170 IFS1>50THENIF<(PEEK<V+31>AND4>=4>THE 
NGOSUB300 s G=3 16 

175 IF((PEEK(V+30)AND2> =2 >THENGOSUB400 : G 
=316 

180 S1=S1+E*((GCMAX)AND(Sl>30)>-E*((G>=M 
AX > > 

182 E=E+((E/8)*(G<MAX >>-((E2)*(G>MAX-1>> 

190 NEXTG 

192 POKESO+11,32 

195 POKEV+21,3:RETURN 

300 REM HIT ON THE GROUND 

305 POKE2042,15:P0KES0+4,17:P0KES0+11,33 
:POKESO+18,129 

310 FORT =1TO200 s POKESO+1,T:P0KES0+8,250- 
T:NEXTT s POKESO +1,20 

320 POKEV+21,3:POKESO+4,128:P0KES0+ 11,12 
8!POKESO +18,128 
325 IFG<12THENG=12 

330 PRINTLEFT$(AT$,(INT((S1 + 19>/S>-5> >SP 
C ( I NT ( ( G + 13 > /8 > - 3 > " " 
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399 GOTO8410 

400 REM HIT TANK 2 
405 SC< 1 >=SC<1> + l 
420 GOSUB300 

430 IFSCC1 ) +SC < 2)=7THEN1000 

449 GOTO8000 

450 REM HIT TANK 1 
455 SC <2 ) =3C(2 > +1 
460 GOSUB300 

480 IFSC <1 )+SC <2 >=7THEN1000 
499 GOTO8000 
700 REM -!ER 2 

705 PRINTLEFT$<AT*,22)SPC<16)" 

710 PRINT" 

II 

712 PRINT" 

715 PR INTLEFT$<AT$,23)SPC < 16 )"PLAYER 2" 
720 A = - 1: INPUT"ENTER ELEVATION";A$ 


722 IFA$<"0"ORA$>"90"THENPRI NT" < 0-9 

0 )";:G0T0715 

730 i INPUT 

"ENTER VELOCITY"; VEL 

732 IFVEL<20RVEL > 10THENPR INT"UUUUJUlUAJ 


2-10 ) " ‘ s PR I NT : GOTO 7 30 

735 P0KES0+4,1 29:POKES0+18,129 
740 MAX=200-5*VEL:A=VAL<A$) 

745 E=A/10 s E1=E/4:E2=E/16 

746 S1=PEEK C V +3 ) - 16 

747 PP =PEEK < V +31>:PP = PEEK(V+30):P0KES0+4 
,128 s POKESO+18 ,128 

748 POKEV + 4,48:PGKEV + 5,S1:POKEV+16,PEEK< 
V+16>OR4:POKE2042,11:POKEV+21,7 

749 PP=PEEK<V+31>:PP=PEEK<V+30>:POKESO+l 
1 ,33 

750 FORG=304TO8STEP-VEL 
755 POKESO + 8 ,G/2 

760 POKEV+4,G+255*<G>255>:POKEV+5,SI 
765 IFG >255THENP0KEV + 16,PEEK <V+16 >0R4 
767 IFG<256THENP0KEV+16,PEEK<V+16 >AND251 
770 S1=S1+E*((G >MAX)AND <S1>30)>-E*< <G<=M 
AX) ) 

780 E=E + < <E/ 8 )* <G >MAX >)-< <E2>* <G<MAX-1)) 
785 IF((PEEK < V +31)AND4)=4)THENGOSUB300 s G 
=8 
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787 IF < (PEEK (V+30 >AND 1> = 1>THENGOSUB450:G 
=8 

790 NEXTG 

793 P0KE30 + 11,32 

799 RETURN 

1000 REM END OF THE GAME 

1005 PR INTLEFT$<AT$,4)SPC <10)"THE BATTLE 
IS OVER" 

1010 PRINTSPC(10)"SPRESS ANY KEY TO PLAY 
AGAIN" 

1020 WAIT197,191 

1030 SC<1>=0:SC<2)=0:GOTO30 

7000 REM *** INITIAL SCREEN —| AND 0~WRU 

CTIONS *** 

7002 PRINTS"; : T1 =0 : T2 =10: T3 = 27 : T4 =37 
7005 FORT =18TO1STEP-1 

7010 PRINTLEFT$(AT$,T)TAB<T1)"T"TAB <T2)" 
A"TAB < T3)"N"TAB < T4 ) " X " 

7020 IFT>1THENPRINTLEFT$<AT$,T)TAB <T1)" 
"TAB (T2 )" "TAB <T3 >" "TAB <T4)" " 

7030 T1=T1 + 1 :T2=T2+.5:T3 = T3-.5:T4 =T4-1 
7040 NEXTT 

7045 T1=0:T2=10:T3=27:T4=37 
7047 FORT=19TO2STEP-1 

7050 PRINTLEFT$<AT$,T)TAB(T1)"TAB(T2)" 
“"TAB <T3)"TAB <T4 >" 

7060 IFT>2THENPRINTLEFT*<AT$,T>TAB<T1)" 
"TAB <T2)" "TAB <T3)" "TAB <T4)" " 

7070 T1 =T 1 + 1 s T2 = T2+ . 5 i T3 = T3- . 5 '• T4=T4- 1 
7080 NEXTT 

7150 PR I NT "HgJTHE TWO PLAYERS TAKE TURNS 
TO ENTER THE ANGLE AND VELOCITY AT "; 

7 155 PR INT"WHICH THEY WANT TO FIRE TO 
TRY TO HIT THEIR OPPONENT." 

7160 PR INT" filTHE SHELLS MUST BE FIRED OVE 
R THE HILLS BUT IF YOU ARE LUCKY YOUR"; 
7165 PRINT" SHELL MAY BE ABLE TO GO THRO 
UGH A HILL"; 

7167 PRINT" (PARTICULARLY AT THE HIGHER 
SPEEDS. > » 

7170 PR I NT "gJTHE WINNER IS THE PLAYER WHO 
HAS HIT HIS OPPONENT THE MOST "; 

7175 PR INT"AFTER A TOTAL OF 7 HITS HAVE 
BEEN MADE" 

7180 PR I NT "IS TO STAND THE BEST CHANCE 0 
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F HITTING YOUR OPPONENT TRY TO "; 

7185 PR INT"USE THE SMALLEST POSSIBLE A 
NGLE OF ELEVATION." 

7190 PR I NT "E3 S3 PRESS ANY KEY TO START 

THE GAME " 

7195 A$="»SGETA*: IFA$< >""THEN7195 
7197 GETA$:IFA$=""THEN7197 
7200 PR I NT " L3" ; : RETURN 

8000 REM *** INITOAL SCREEN SET-UP *** 

8003 POKEV+21 ,0 

8005 Q=20-INT<RND<1>*10> 

8007 PRINT"J" 

80 10 FORF =0TO39 

8020 F0RG=21TOQSTEP-1 

8030 PRINTLEFT$<AT$>,G)SPC<F) "HA 11 

8035 REM PRINTLEFT$<AT*,G)SPC<F-2> 

8040 NEXTG 

8042 IFF < 3THENNEXTF 

8045 IFF >36THENNEXTF:G0T08100 

8050 Q=Q +INT <RND <1)*4>-INT<RND<1>*4> 

8060 IFQ<7THENQ=8+INT <RND <1>*2> 

8065 IFQ >20THENQ=20-INT <RND <1>*2> 

8070 NEXTF 

8100 FORF =1T024: IFPEEK<1024+<40*F>X>32T 
HENPOKEV+1,<F*8 >+32:POKEV,24:G0T08120 
8115 NEXTF 

8 120 FORF =1T024 : IFPEEK<1063+<40*F)>< >32T 

HEN8150 

8130 NEXTF 

8140 GOTO8400 

8150 POKEV+3,F*8+32:POKEV+2,64:POKEV+16, 
2 

8400 POKEV +21,7 

8405 PR INT"a PLAYER 1 PLA 

YER 2" 

8410 PR I NT" £50 "SC<1 >" 

"SC <2 ) 

8500 RETURN 

9000 REM *** READ SPRITE DATA *** 

9005 POKEV +21,0 

9010 FORT = 0TO191 :READA:POKE 13*64+T,A:NEX 
TT s POKE2040,13:POKE2041,14 

9015 FORT=0TG63:POKE704+T,0:NEXTT:P0KE75 
9,8:P0KE762,28:P0KE765,8:POKE2042,1 1 
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9020 V =53248 


9030 POKEV+39,1:POKEV+40,1:P0KEV+41,1 
9050 POKEV+21,7 
9100 S0=54272 

9 1 10 FORT=0TO28:READA s POKESO+T,AiNEXTT 
9500 RETURN 

10000 REM *** SPRITE TANK LEFT *** 

10002 DATA 0, 0, 0 , 0 , 0 , 0, 0 , 0, 0/ 0, 
0, 0 

10003 DATA 0, 0, 8, 0, 0, 56, 0, 0, 248, 
0, 227, 224 

10004 DATA 1, 247, 128, 3, 254, 0, 3, 24 

8, 0, 127, 255, 254 

10005 DATA 255, 255, 255, 255, 255, 255, 

64, 0, 4, 81, 17, 20 

10006 DATA 63, 255, 248, 0, 0, 0, 0, 0, 

0 , 0 , 0 , 0 

10007 DATA 0, 0, 0, 0 

10050 REM *** SPRITE TANK-RIGHT *** 

10052 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 

0 , 0 

10053 DATA 32, 0, 0, 120, 0, 0, 62, 0, 0 

, 15, 135, 0 

10054 DATA 1, 239, 128, 0, 127, 192, 0, 

31, 192, 127, 255, 254 

10055 DATA 255, 255, 255, 255, 255, 255, 

32, 0, 2, 40, 136, 138 

10056 DATA 31, 255, 252, 0, 0, 0, 0, 0, 

0 , 0 , 0 , 0 

10057 DATA 0, 0, 0, 0 

10100 REM *** SPRITE SHELL BURST *** 


10102 DATA 0, 0, 
0, 0, 32 

10103 DATA 0, 64 

8, 64, 128 

10104 DATA 0, 0, 
8 

10105 DATA 0, 0, 

64, 136, 128 

10106 DATA 32, 1 

112, 1, 11, 128 


0, 0, 0, 16, 0, 128 
, 0, 16, 0, 64, 0, 0 

0, 4, 1, 2, 0, 0, 4 

16, 1, 4, 32, 0, 0, 

, 0, 16, 82, 15, 12, 


, 0 , 
, 0 , 
, £, 
64, 
4, 


10107 DATA 0, 112, 0, 0 

1 1000 REM -- 



164 Tanx 


11010 DATA0,£0,0,0,128,26,250 
11020 DATA0,£0,0/0 / 16/.9/-240 
11030 DATA0,7,0,0,128,9,240 
11040 DATA© ,0,0,- 15,0,0,0,0 



Stellar Run 


On a routine run into hyperspace, you suddenly come upon a new 
universe. Instantly your cruiser is confronted with a series of mazes, 
obstacles and tunnels as you struggle to chart new horizons. As an 
experienced commander, you are well aware that any contact with the 
numerous meteors, rock walls or barriers will lead to your instant 
destruction. You will need to think fast and use your missiles to blast a 
hole through obstacles. So stand by, finger on the keyboard ... Good 
luck! 


10 REM STELLAR RUN...WALWYN 

12 PR INT" fcj STELLAR RUN... -WAIT FOR 5 S 

ECONDS" 

15 REM SET UP INITIAL DATA 
IS DIM KX<255>,KY<255> 

20 GOSUB5000 

22 REM PLACE SCREEN TO 40 COLUMNS 

24 POKE53270,PEEK<53270>0R8 

25 REM PRINT BLACK BORDER 

26 POKEUB, U0:POKEUG ,U9 

27 GOSUB3000 

28 PR I NT 11 

30 REM X AND Y POSITION OF SHIP 
32 REM FG IS MISSILE BANK 
35 X =150:Y=30 : FG =9 

40 REM SHRINK SCREEN TO 38 COLUMNS 
45 POKE53270,PEEK<53270>AND247 
S0 REM SET UP AND DISPLAY SPRITES 
62 POKEV+2 ,X s POKEV+3 , Y 

65 POKE2041,241:POKEV+21,2:POKEV+40,UF 
70 POKE2042,242:POKE2040,240:POKEV+39,U2 
:POKEV +41,U0 

75 POKEV+16,0:POKEV+30,0:POKEV+31 ,0 
100 REM SET UP NEXT LINE OF SCROLL 
110 REM D=LEVEL OF DIFFICULTY <MAX 9) 

120 D=1:E=0:A=0:B=0:C=0:EE=.2 
125 POKEUV, 15 : F'OKEUA +7,129 : POKEUD+7,24 1 : 
POKEUW+7,17 
130 A$="S 
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132 A1*«"♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 
♦ ♦ ♦ ♦ ♦ ♦ ♦" 

135 BT ="M 

II 

140 C$=" * * * 

* " 

142 C$=C$+" 

* " 

150 E=E+EE*RND<1> 

160 ON DGOTO200,250,300,350,400,450,500, 
550,600 

200 D$=LEFT$<ft*,SIN<E>*9+10>+LEFT$<B$,20 
) +A$ 

210 IFE >15THENP0KEUG,U3 s D =2 
220 GOTO650 

250 D$ = LEFT$<,SIN(E > * 11+12>+LEFT$(B$,1 
6>+A* 

260 IFE >30THENPOKEUG,UU:D=3 
270 GOTO650 

300 D$=LEFT$CA$,<SIN<E>+C03<E*.9>>*4.5+1 
2>+LEFT*(B$,16>+A$ 

305 IF RND < 1 > < . 08THEND$= " SgS" + ft$ 

310 IFE >45THENP0KEUG,U5:D = 4 
320 GOTO650 

350 N$=B$:IF RND<1><.08THENN$="■"+ A1$ 

355 D$=LEFT$<A$,<SINCE)+COS<E*1. 1> >*4.5 + 
12 > +LEFT$<N$,16>+A$ 

360 IFE >60THENPOKEUG,U9:D=5 
370 GOTO650 

400 IF RND < 1 >>.6THEND$="H|3"+B*:GOTO410 
405 D$="BaH" +MID$<C$,INT<RND<1>*40 + 1>,40 

> 

4 10 IFE >75THENP0KEUG,U7:D =6 
420 GOTO650 

450 D$=LEFT$(A$,SIN<E>*12+13>+LEFT$<B$,1 

4 > +A$ 

460 IFE >90THENPOKEUG,UR:D = 7 
470 GOTO650 

500 D*=LEFT*<A*,<3IN<E>+COS<E*5. 1> >*4.5 + 
12>+LEFT$(B$,16>+A$ 

5 10 IFE >105THENPOKEUG,US : D = 8 
520 GOTO650 

550 IF RND <1> >.25THEND$=+ B$:GOTO560 
555 D*="S^"+MID*<A1 $, I NT ( RND < 1 >*2+1 > ,40 
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560 IFE >120THENPOKEUG,U1: D = 9 
570 GOTO650 

600 IF RND<1)>.5THEND$="Ha"+B$:GOTO610 
605 D*="Ea"+A$ 

610 IFE <135THEN650 

620 FORK=0TO14:PRINTTAB(K >"WELL DONE, YO 
U MADE IT" 

630 POKEUB ,K '• NEXTK 
640 GOTO9110 

650 PRINTU0$;LEFT3KD$,4£:> 

660 POKEUS+1,FG+48 

700 REM KEY PRESSED ACTION 

710 K=PEEK(197>:IFM<0THENM=0 

7 1 £ POKEUH+7,£:POKEUL+7,M*8:FG=FG+1 

715 IFK=64THENM=M-£:GOTOS00 

7 16 IFK <>60THEN7£5 

7 18 IFFG<£THEN800 

720 F = 1 :F.X = X:FY = Y+6:P0KEV,FX:P0KEV+1 ,FY: 
POKEV +£1,3:FG =FG-£ 

7£2 IFPEEK<V + 16 >=£THENPOKEV+16,3 
7£3 IFFG<0THENFG=0 
7£4 GOTO800 

725 M=M+1:IFM>9THENM=9 

730 IF(2ANDPEEK <V + 16 >)AND <K =10ORK = 13)THE 
N770 

735 IFK=10THENX=X-M:IFX<30THENX=30 

740 IFK =13THENX =X +Ms IFX >£55THENP0KEV+16, 

PEEK CV +16 > +£!X =X-255 

750 IFK =1£THENY=Y+M: IFY>200THENY = £00 
760 IFK=9THENY=Y-M:IFY<60THENY=60 
765 GOTO800 

770 IFK=10THENX=X-M:IFX<0THENPOKEV+16,PE 
EK<V+16)-£:X=255+X 

780 IFK=13THENX=X+M:IFX>60THENX=60 

300 REM DISPLAY AND CHECK HIT 

805 IFFG >9THENFG = 9 

810 POKEV+2 ,X s POKE V+-3 , Y 

820 IFPEEK < V +31)AND2THEN9000 

850 IFF <1THEN150 

852 IFF =£THEN860 

855 POKEUV,15SP0KEUA,l£:POKEUD,1£8:P0KEU 
W,17:F =2 

860 FORK=0TO40STEP8 s FY=FY+8:POKEV + 1,FY: I 
FFY >££0THEN900 
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865 POKEUL, FYs POKEUH,6 
370 IFPEEK ( V+31)< >1THENNEXTK:GOTO990 
875 NX =0: IFPEEK<V + 16>AND 1THENFX=FX+255:N 
X = 1 

830 2 =US +INT<<FX-25)/8>+INT< <FY-42)/8+l) 
*40 

332 POKEUV, 15 s POKEUA, 72 sPOKEUD,1£8:P0KEU 
H, 1 1 

383 POKEUL , 0 '• POKEUW ,129 

384 P0KEV+4,FX:P0KEV+5,FY:IFNXTHENPOKEV+ 
16, PEEK < V + 16 ) +4 

885 POKEV +2 1,6 

886 FORK =0TO3:POKEZ +K,32:POKEZ-40+K,32 

887 NEXTK 

300 F =0:POKEV +21,2: IFNXTHENPOKEV+16,PEEK 

<V + 16 )-4 

310 GOSUB9500 

980 GOTO 150 

339 END 

3000 PRINTU2*; "iJSTELLAR RUN" 

3010 REM INSTRUCTIONS 

3020 PRINTUF*"E[rOU ARE IN CONTROL OF THE 
3030 PR I NT" I8STELL AR TRIPPERS AND HAVE DI 
SCOVERED 

3040 PR INT"A NEW GALAXY." 

3050 PR INT"THE GALAXY IS 135 LIGHT YEARS 
WIDE AND 

3060 PR INT"YOU WILL HAVE TO NAVIGATE YOU 
R WAY 

3070 PR INT"THROUGH THE WARP MAZE." 

3080 PRINT"&EACH TIME YOU PLAY, YOU WILL 
BE GIVEN 

3080 PR INT"A SLIGHTLY DIFFERENT MAZE. . .W 
ATCH OUT!" 

3100 PRINT"SEE HOW FAR YOU CAN GET. NO 0 
NE'S EVER 

3110 PRINT"REACHED THE OTHER SIDE!" 

3115 PRINT"THE FURTHER YOU GO, THE HARDE 
R IT IS!" 

3120 PRINTU2$;"gHOLD DOWN 'A’...TO MOVE 
LEFT" 

3130 PRINT" 'S'...TO MOVE RIGHT 


II 


'Z ' . . . 


3140 PRINT 


TO MOVE DOWN 



Stellar Run 169 


3150 PRINT" 'W'.-.TQ MOVE UP" 

3160 PR INT"THE SPACE BAR FIRES A STELLAR 
MISSILE 

3170 PRINT"(DON'T WEAR OUT YOUR MISSILE 
BANK... 

3180 PRINT"THE NUMBER OF MISSILES READY 
FOR 

3190 PR INT"FIRING IS AT THE TOP LEFT)" 
3200 PRINTU0$"aPRESS ANY KEY TO START" 
3210 GETM$:IFM$=""THEN3210 
3220 RETURN 

5000 REM SPRITE DATA SUBROUTINE...'64' 

5001 REM SPRITE BASE VARIABLE = 'V 

5002 V =53248 

5004 REM ALTER BASIC MAX MEMORY AND VAR I 
ABLE LOW MEMORY 

5005 P0KE52,60:POKE56,60 

5006 REM LOAD DATA INTO BLOCKS 240-UPLIAR 
DS 

5007 FORK =0TO2 s FOR J =0TO62 

5008 READ A s POKE(240 +K)*64 +J, A s NEXTJ,K 
5010 REM SPRITE MISSILE 


5020 

DATA 

0 r 

0, 0, 0, 0, 0, 

0, 0 

5030 

DATA 

0, 

0, 0, 0, 0, 0, 

0, 0 

5040 

DATA 

0, 

0, 0, 0, 0, 0, 

0, 0 

5050 

DATA 

0, 

124, 0, 0, 56, 

0, 0, 16 

5060 

DATA 

0, 

0, 16, 0, 0, 16 

, 0, 0 

5070 

DATA 

16, 

0, 0, 0, 0, 0, 

0, 0 

5080 

DATA 

0, 

0 , 0 , 0 , 0 , 0 , 

0, 0 

5090 

DATA 

0, 

0, 0 , 0 , 0 , 0 , 

0 

51 10 

REM SPRITE SHIP 


5120 

DATA 

0 r 

0, 0, 126, 60, 

126, 62,24 

5130 

DATA 

124 

, 30, 24, 120, 

15, 24, 240, 

7 

5140 

DATA 

153 

, 224, 1, 255, 

128, 0, 255, 

0 

5150 

DATA 

0, 

£55, 0, 1£7, £55, £54, S3, 

255 

5160 DATA 

4 , 39 

252 

, 63, 189, 252, 

47, 255, 24 

5170 

DATA 

189 

, 228, 3, 255, 

192, 1, 165, 

CO 

CU 

5 180 

DATA 

0, 

231, 0, 0, 102, 

0, 0, 60 

5 190 

DATA 

0, 

0, 24, 0, 0, 24 

, 0 
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5210 REM SPRITE SHIP EXPLODES 


5220 

/X 

DATA 

34 , 162, 73, 

84 

, 20 

, 84, 42, 

5230 

65 

DATA 

84, 20, 129, 

40 

, 74 

, 8, 160, 

5240 

DATA 

17, 63, 16, 

170 

, 130, 32, 85, 

0 






5250 

DATA 

4, 170, 0, 85, 

35, 

84, 0, 124 

5260 

DATA 

4, 21, 21, 34, 

40, 

170, 160, 

6 

5270 

DATA 

161, 100, 0, 

9 , 

66, 

1, 36, 12 

5230 

DATA 

42, 133, 84, 

1 , 

36, 

0 , 0 , 0 

5290 

DATA 

72, 66, 128, 

0 r 

s. 

0, 16 


7000 REM ***************************** 
7002 REM COLOUR CODES FOR COMMODORE 64. 
7005 REM (ONLY USE THESE COLOURS) 

7010 U0 =0iU0$=:REM BLACK 
7020 Ulsl:Ul$= ,, a| ,, !REM WHITE 
7030 U2=2 s U2$="S"s REM DARK RED 
7040 U3=5:U3$="H":REM GREEN 
7050 U4 =6iU4$="H":REM DARK BLUE 

7060 ..REM ORANGE 

7070 U6=9:U6$="*":REM BROWN 
70S© U7=10:U7$= M IS" : REM PINK 
7090 US = 13 s U8$= " il" • REM LIGHT GREEN 
7100 U9=14:U9$="U" : REM LIGHT BLUE 
7110 UU=4 i UU$ = "J®" * REM PURPLE 
7120 UR=12:UR$="y n :REM LIGHT GREY 
7130 UE=7iUE$="BI" : REM LIGHT YELLOW 
7140 UF=11:UF^="H":REM DARK GREY 
7200 REM SCREEN 'POKE' CODES FOR 64. 
7210 US=1024 s REM SCREEN POKE CHARACTER 
7220 UC =55296:REM SCREEN POKE COLOUR 
7230 UG=53281iREM BACKGROUND COLOUR 
7240 UB=53280:REM SCREEN BORDER COLOUR 
7300 REM SOUND 'POKE' CODES FOR 64. 

7310 UV =54296 s REM VOLUME FOR 3 VOICES 
7320 UA =54277!REM ATTACK FOR VOICE 1 
7330 UD=54278:REM SUSTAIN FOR VOICE 1 
7340 UH=54273:REM HIGH BYTE FOR VOICE 1 
7350 UL=54272:REM LOW BYTE FOR VOICE 1 
7360 UW=54276:REM WAVEFORM FOR VOICE 1 
7400 RETURN 

7500 REM ***************************** 
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8000 REM SOUND SUBROUTINES 
9000 REM SHIP HIT 

9010 POKEV +40,U0:POKEV+4 ,X • POKEV+5 , Y 
9080 IFPEEKCV+16)AND8THENP0KEV+16,6 
9030 POKEUV,15:POKEUA,15sPOKEUD,63:POKEU 
H ,7: POKEUL,80 
9038 POKEUU1, 189 

9035 FORK=0TO80:POKEV+40,U1:FORJ=1TO80:N 
EXTJ 

9040 POKEV+40,U0 s FORJ=1TO80:NEXTJ,K 
9050 PQKEV+8 1,6 
9060 FORJ=0TO£00:NEXTJ 
9070 POKEV+81,4 

9080 FORJ=0TO800:NEXTJ:POKEV+81,0 
9100 PRINTU0*;"a DESTROYED" 

9 108 PR INT"H YOU GOT AS FAR AS" 

9105 PRINT"U"INT<E*10>/10; "LIGHT YEARS" 

9 110 PR I NT "H ANOTHER GAME? (Y/N) 11 
9180 GETA$:IFA$=""THEN9180 

9130 IFA$="Y"THEN GOSUB9500:POKEUV,0:PR I 
NT" 0K...":RUN 

9140 IFA$= "N" THEN PR I NT " LITHANKYOU FOR PL 
AYING"SEND 
9150 GOTO9180 

9500 REM CANCEL SOUND FOR VOICE 1 

9510 POKEUA,0:POKEUD,0:POKEUH,0:POKEUL ,0 

: POKEUL1,0 : RETURN 
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It’s time to don your tweeds, grease up your shotgun and head for the 
marshes. The geese are back from the north and the freezer is empty. 
Don’t worry about the corpses—your faithful hound will deal with 
those after the game is over. Just blast away with your shooter and notch 
up a handsome tally. 


10 REM FLYING GEESE 


11 

REM 

lf ll" 

= 

INSERT 


< 

IN 

) 

12 

REM 

"S" 

= 

CURSOR 

DOWN 

< 

CD 

> 

13 

REM 


= 

CURSOR 

UP 

< 

CU 

) 

14 

REM 

" 18 " 

= 

CURSOR 

LEFT 

( 

CL 

) 

15 

REM 

" 61 " 

= 

CURSOR 

RIGHT 

( 

CR 

) 

16 

REM 

! * J" 

= 

CLEAR S 

■CREEN 

< 

CS 

> 

17 

REM 

"a" 

=• 

CURSOR 

HOME 


CH 

; 

18 

REM 

■'a" 

= 

REVERSE 

ON 

< 

RO 

) 



'i 1. 

- 

REVERSE 

OFF 


RF 

) 


19 REM 

£0 P0KE52,48:P0KE56,4S:CLR 


22 






CH+<25*CD> 


23 GOSUB7000!GOTO530 


24 : 

25 REM **** FLYING & SHOOT ROUTINE **** 

30 FORX=0TO3i D <X )=H <X > + INT(RND <1 
X)>60)-INT(RND <1>*8)*<H(X)<250> 

31 POKEV+£*(X)+1,H(X> 

32 REMPRINTLEFT$(AT*,H(X>>SPC<G<X>-0>" 

L^ 1 16 

35 POKE2040+X,<PEEK<£040+X>-F):F=-F 
40 KY=PEEK ( 197 > : IFKY= 10THENGOSUB80 

45 DI=DI + < <DI> 1)AND <KY = 47> > - < <DI<3>AND(K 
Y=44> > 

46 FO=10*DI:EV=FO-l:TV=FO 

47 MI=MI + <(DI = 1> AND <KY=47) AND (MI>1)>-< <D 
I=3)AND(KY=44 >AND ( MI< 35 >) 

49 PRINTLEFT$(AT$,21>SPC<MI)MAN*(DI> 

50 H <X > =D (X > 5G<X)=G<X) +TL\1 
52 IFG (X ) *8>£55THENG(X >=2 
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55 REM IFG(X) >TNTHENPRINTLEFT$(AT$,H (X) ) 
SPC (G (X ) -0 )" " :G(X>=0 

57 POKE2040+X,(PEEK(£040+X)-F):F=-F 
60 NEXTXsIFSH>99THEN300 

70 GOTO30 

71 s 

72 : 

80 REM FIRE! 

81 SH = SH+ 1 :PRINT ,, g ,, SPC(5)SH 
32 FORY=OTOTW 

83 PP=PEEK(V+30):PP=PEEK<V+31) 

84 PR INTLEFT3>< AT$,S I + (DI=2 ) )SPC (MI+DI -1> 
S0$(DI)s P0KES0 +4,129sNEXTY 

85 PRINTLEFT*(AT*,SI+(DI=2))SPC(MI+DI-1 ) 
H" : POKESO +4,123 ! REM (R0 ) +SPACE + (RF ) 

S7 Y1 = (SI + (DI=£:) )*8+42:X1=(Ml +D I - 1 )*8+£4 
88 POKEV+21,143 

90 X2=3* CD I-£):F0RY=Y1TO30STEP-8 
9 1 X1=X1+X2:P0KEV + 14 ,X1*-(X1>0 )+256*(X1 > 
255):P0KEV+ 15 ,Y 

92 P0KEV+1S,PEEK< V + 16 >AND(255+12S*(XI<25 
5))OR(128*-(X1>255) ) 

93 ZZ =PEEK(V + 31): IFY<200THENIF((PEEK(V+3 
1)AND 123) = 128)THENPOKEV+£1,15:G0T089 

94 PP=PEEK(V+30) 

95 IF((PPAND128) = 128)THENPP =PP-128 s GOTO4 
00 

96 NEXTY 

99 PRINTLEFT$(AT*,SI+(DI=£))SPC(MI+DI-1) 
H" i RETURN:REM ( RO ) +SPACE +( RF ) 

100 REM **** SCREEN SET-UP **** 

101 P0KE53265,PEEK(53265)OR64 

103 SP$= 

bib ■" 

104 REM (RO) + (39*SPACE) + (CL) + (IN)+SPACE + 
(RF) 

105 FORX=0TO3 1 H(X)=60 +10*X s G(X > = ((X+l)*5 
>-4:NEXTX 

107 PRINT"JSHOTS ^ = FIRE SC 

ORE 

110 PR I NT 11 : FORT - 1 TQ3 : PR 

INTSP$s NEXTT'PR INTSP$; 

112 PRINTLEFT$(AT$,14)SPC(9)"' 1! "sPRINTL 
EFT^(AT’^, 15 )SF'C (S ). . " : REM ’ =SHIFT+7 
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114 PRINTLEFT$<AT$, 16 )SPC< 7 ). 1 ' ' ":PR 

INTLEFT*<AT$, 17 )SPC< 7 > " ' ' ' ' ' ' ' " 

116 PRINTLEFT*<AT*,18)SPC<7)" ' 1 H ■&!! ■' ' 

II 

1 IS PRINTLEFT$(AT$, 19 )SPC< 10 )"&"JPRINTLE 

ft$(at$,£0)spc< 10> 

130 REM PRINTLEFT$<AT*,£ 1 )SPC< 18 )MAN$(DI 

) 

140 POKEV, 25 :POKEV+ 2 , 50 :POKEV+ 4 , 75 :POKEV 
+ 6,100 

152 PRINTLEFT$(AT$, 13)SPC<32) : PR I NT 

LEFT^CATSJ, 14 )SPC (31 > " ' ' ' ' ' " 

154 PRINTLEFT$<AT$, 15 )SPC< 30 ) ..:p 

RINTLEFT^<AT^, 16 )SPC( 30 ). 

156 PR INTLEFT 5 (AT$, 17 )SPC< 30 ) " ' ' a « 5 <a ■' 

i ii 

158 PRINTLEFTSCAT*, 18 )SPC< 33 )"&"sPRINTLE 
FT$(AT$, 19 )SPC< 33 ) 

165 GOTO 30 

166 : 

299 REM * * * * END OF GAME **** 

300 IFB >T 0 THENT 0 =B 

3 10 FORT =1 TO 400 :NEXTT:POKEV + 21,0 

320 PRINT"J":PRINTLEFT$<AT*, 8 )SPC< 15 )"GA 
ME OVER" 

330 PRINTSPC< 8 )"YOU SCORED " 6 " IN 100 SH 
OTS " 

340 PRINTSPC< 10 )"HIGHEST SCORE "T 0 
345 POKE 198,0 

350 PRINT"MMSE 3 " : INPUT" PRESS a RETURN m 
FOR THE NEXT GAME ";X$ 

360 SH= 0 :B= 0 :POKEV+ 21 , 15 :GOTO 105 
400 REM HIT!.'!! 

405 B =B + 1 : PR I NT "Si" SPC < 37 )B:G<X) =0 +TU 1 : H < X 
)=0 

4 10 IFPP = 1 THENXX =0 
420 IFPP= 2 THENXX =2 
430 IFPP = 4 THENXX =4 
440 IFPP = 8 THENXX =6 

450 POKEV + S,PEEK <V + XX):POKEV+ 9 ,PEEK <V+XX 
+ 1 ):POKEV + 21,31 

455 P 0 KEV + 43 ,PEEK(V +39 + <XX/ 2 )) 

460 POKEV+XX, 20 :P 0 KES 0 + 11,33 
470 FORQQ =PEEK < V + 9 )TO 220 STEP 2 
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480 PQKEV + 9 ,QQ:POKESO+S,230-QQ:NEXTQQ 
490 POKEV+21,15:F'0KESO + 1 1 ,0 
499 G0T099 

570 REM **** INITIALIZATION **** 

580 P0KE53281, 3! PR INT" LH":PGKE53280,6:PO 
KE53282,5;P0KE53283,5 

585 PRlNT"mmm PLEASE WAIT A FEW 

MOMENTS" 

590 DIMA$<4),D<4),G<4),H<4) 

600 SX=6:HY=30:TT=0:SH=0:FI=15:TV=12:EV= 
11:NI = 19:TY=20 s EN=18 s TF =34!SI=21 
605 FG=14:EI=8iF=-1:0=1:TW=2:TH=3:FR=4:T 
N=39:DI=2 s MI = 18 

610 P0KE56334,PEEK<56334>AND254 
620 POKE 1,PEEK<1)AND25 1 

630 FOR I=0TG511:P0KE12288+I,PEEK<53248+I 
>:NEXT 

660 FORI=0TO8*13-1:READA:POKE 12568 + I,A:N 
EXT I 

665 FOR I=0TO15:READA:POKE 12288 + 464 + I , A : N 
EXT 

670 A$<4)="#$" : A$<2)="%$" :S0$< 1 ) = "fl;ffl" :S 
0$(2) = "a:i ,, :S0$(3) = " ( a i i" 

671 REM MAN$(1)=(RO),SPACE,SPACE,SPACE,< 
CD) (CL) (CL >< CL)< SPACE >,(SPACE) ETC 

672 MAN*(l) = "i| naai , mm ll - ":MAN*<2) 

= "ja . mmm / mmt - - 

675 MAN$(3)="a EDDQQ * SiSil + " 

680 POKE 1,PEEK <1)0R4:P0KE56334,PEEK <5633 
4 )OR 1 

690 P0KE53272 , (PEEK<53272)AND240) +12 
695 GOTO9000 
1000 REM DATA 
1010 DATA2,6,7,7,127 ,31,3,0 
1020 DATA0,0,43,104,254,192,0,0 
1030 DATA0,0,0,0,127,31,15,3 
1040 DATAS5,170,85,170,85,170,35,170 
1050 DATA66,16,132,33,4,81,4,160 
1060 DATA0,16,18,54,118,62,60,60 
1070 DATA48,56,28,20,24,16,16,0 
1080 DATA 1 ,98,244,232,88,232,248,224:REM 
MAN RIGHT TOP 

1090 DATA224,224,144,144,144,144,144,216 
“.REM MAN RIGHT LEGS 
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1100 DATA128,70,47,23,26,23,31, 7:REM MAN 
LEFT TOP 

1110 DATA? ,7,9,9,9,3,9,27 : REM MAN LEFT L 
EGS 

1120 DATA0,0,0,8,8,8,8,8 

1130 DATA8,14,15,15,26/23/31, 7:REM MAN L 
EFT TOP 

1140 DATA85,42,20,42,20,0,8,8 
1150 DATA66,8,33,132,32,138,32,5 
7000 REM INITIAL SCREEN & -WRUCTIONS 
7010 PR I NT "LJ" : 

7020 PRINT" FLYING GEESE 


7030 PRINT"SIH IT'S TIME TO DON YOUR TWEE 
OS , " J 

7035 PRINT" GREASE UP YOUR SHOTGUN AND H 
EAD FOR THE MARSHES." 

7040 PRINT" THE GEESE ARE BACK FROM THE 
NORTH AND THE FREEZER IS EMPTY." 

7050 PRINT" DON'T WORRY ABOUT THE CORPS 


ES " ; 

7060 PRINT" - YOUR FAITHFUL RETRIEVER 
WILL DEAL "} 

7070 PRINT" WITH THEM AFTER THE GAME IS 
OVER . " 


7080 PRINT" JUST BLAST AWAY SITH YOUR 12 
-BORE AND NOTCH UF A HANDSOME TALLY" 

7 100 PR INT"H CONTROLS!-" 

7 110 PR INT"H < = MOVE PLAYER TO THE LEFT 


7120 PR INT"a > = MOVE PLAYER TO THE RIGH 
T" 

7130 PR INT"a A = FIRE THE SHOT GUN 
7140 PR INT"PRESS ANY KEY TO START T 
HE GAME 

7150 WAIT197,64!WAIT197,191 

7200 RETURN 

7999 GCT07993 

9000 REM READ SPRITE DATA 

90 J 0 FORT---0T0 191: RE ADA : POKE 12S64 +T, A : NEX 
TT 

9020 FORT=0TQ63:P0KE64*200 + T,0:NEXTT 
9030 POKE 12803,16:POKE 12812,56:POKE 12815 
,16 
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9100 V =53248 

9110 POKEV +39,0 : POKEV +40,2 : POKEV + 41,6:P0 

KEV+42,11:POKEV+43,0:POKEV+46,0 

9120 POKE2040,201:POKE2041,201:POKE2042, 

201:POKE2043,201:POKE2047,200 

9130 POKEV +21,143:PGKE2044,203 

9140 30=54272:FORT=0TO28:POKESO +T,0:NEXT 

T 

9150 POKESO+1,25:POKESO+5,9:POKESO+6,25: 
POKESO+12,9:POKESO+13,240:POKESO+24,15 

9999 GOTO 15000 

10000 REM SPRITE DATA 

10010 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
10020 DATA2,0,0,6,0,0,7,48,0,7,104,0,127 
,254,0,31,192,0,8,0,0,0,0,0, 

10030 DATA©,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0 

10050 DATA 0,0,0,0,0,0,0 ,0,0,0,0,0,0,0,0 
10060 DATA©,0,0,0,0,0,0,48,0,0,104,0,127 
,254,0,31,192,0,15,0,0,3,0,0 
10070 DATA©,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0 

10100 DATA0,0,^0,0,16,0,0,18,0,0,54,0,0, 
1 18,0,0,62,0,0,60,0,0,60 

10110 DATA©,0,48,0,0,56,0,0,28,0,0,20,0, 
0,24,0,0,16,0,0,16,0,0,0 

10120 DATA©,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0 

15000 FORT=0TO111 
15005 READA:X=X+A 
15010 P0KE828 +T,A 
15015 NEXTT:P0KE254,4 
15020 IFX=13483THENSYS828:GOTO 100 
15025 PR INT"DATA ERROR IN LINES 15030-15 
100" 

15027 PRINT"PLEASE CHECK THESE LINES FOR 
A WRONG NUMBER" 

15030 DATA 120,173,20,3,133,251,173,21 ,3, 

133,252,169,96,141,20 

15040 DATA3,169,3,141,21,3,88,96 

15050 DATA 120,165,251,141,20,3,165,252,1 

41,21 ,3,88,96,169,0 

15060 DATA 168,10,170,9,1,133,253,254,0,2 
08,189,0,208,201 ,0 
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15070 DATA240,7,201,89,240,14,76,155,3,1 
65,253,13,16,208,141 

15080 DATA 16,208,76,155,3,173,16,208,37, 
253,240,246,169,255 

15090 DATA229,253,45,16,208,141,16,208,1 
69 ,20,157,0,208,200 

15 100 DATA 196,254,240,8,6,253,152,10,170 

,76,105,3,108,251,0,234 

15200 REM CHECKSUM= 13483 
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This forces your computer to work for a living. When you don’t want it 
to grapple with your tax problems, beat you at chess or zapp your lunar 
bases, then with the aid of this program you can make it display a 
message in large characters to alert passers-by (useful if shop window 
displays play a role in your life), or entertain party guests with ribald 
comments. You choose the message which can be up to fifty lines in 
length. You also have the facility to change the colour of letters and 
screen background colours. 

10 REM SHOUI-SIGN 

20 GOSUB7000 

25 GOSUB8000 

100 POKE UG,U9:P0KEUB,UF 

110 PRINTU2$ M iJ SHOW-SIGN" 

120 PRINTU4$;"MTHIS IS A MOVING SIGN DIS 
PLAY FOR 

130 PRINT"YOUR SHOP, OFFICE, PARTY OR HO 
ME ETC." 

140 PR I NT"IF IRSTLY SET THE SCREEN COLOUR 
S AND" 

150 PR INT"THEN TYPE IN YOUR MESSAGE. NO 
LINE MAY" 

160 PR I NT"BE MORE THAN SIX CHARACTERS IN 
LENGTH." 

170 PRINT"YOU MAY TYPE ANY ASCII CHARACT 
ER FROM:" 

180 PR INT"ASC < 32) - A BLANK - TO..." 

190 PRINT"ASC <94 > - AN UPWARDS ARROW" 

200 PRINT"THERE ARE 4 FUNCTION KEYS FOR 
SPECIFIC" 

210 PRINT"SHAPES FOR YOUR DISPLAY:" 

220 PRIN^'M^ IB A SOLID BLOCK" 

230 PRINT"|F 3B A LINE" 

240 PRINT"HF 5* A 2 IG-2AG PATTERN" 

250 PR INT"IF ?m A DIAMOND" 

260 PR INTUFit; "fflYOU MAY CHANGE COLOUR FOR 
ANY CHARACTER 

270 PR INT"BY USING YOUR COMPUTER’S NORMA 
L COLOUR" 
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280 PR INT"KEYS. YOU MAY ALSO DELETE MIST 
AKES. " 

290 PR INT"NO OTHER KEYSTROKE WILL BE ACC 
EPTED . " 

300 PR INT"WHEN FINISHED, TYPE •RETURN'." 
305 PRINTU6$/"fipRESS ANY KEY TO PROCEEDS 

II 

310 GETA*:IFA$<>""THEN310 
320 GETA$:IFA$=""THEN320 
400 FORJ =1T02iK = 0 
410 IFJ =2THEN430 

420 PR INT"^JSET BACKGROUND COLOUR BY PRES 
SING THE" 

422 L=UG 

425 PRINT"SPACE BAR. WHEN FINISHED TYPE 
RETURN" 

427 GOTO440 

430 PRINT"MS1SET BORDER COLOUR BY PRESSIN 
G THE" 

432 L =UB 

435 PRINT"SPACE BAR. WHEN FINISHED TYPE 
RETURN" 

440 GETA$sIFA$=""THEN440 

445 IFASC <A*> = 13THEN480 

450 IFA$=" "THENK=K+1:IFK=16THENK=0 

460 POKEL ,K 

470 GOTO440 

430 NEXTJ 

500 PR INTUFSJ "BMSIOW LET'S HAVE YOUR MESS 
AGE. . . " 

510 PR INT"jgREMEMBER, NO LINE MAY BE MORE 
THAN 

520 PR I NT"SIX CHARACTERS IN LENGTH. 

522 PR I NT"TYPE 'INST/DEL ' KEY TO REDO L 
INE " 

525 PR I NT"TYPE 'CLR/HOME' KEY FOR NEXT L 
INE. 

530 PR I NT"TYPE 'RETURN' WHEN FINISHED. 
532 PRINT"Steiai23456" 

535 Z=0:W=0:L=0:C$=UF$ 

540 PRINTC$; " •!«"; 

550 GETA*:IFA$=""THEN550 
555 A=ASC<A$> 

560 IFA >31ANDA < 95THEN650 
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565 IFA >132ANDA <137THEN600 
570 IFA =13THENZ = 1:GOTO640 
572 IFA =£0THEN610 

574 IFA =19THEN640 

575 5 r ORJ=0TO15: IFA=C<J)THEN620 
580 NEXTJ!GOTO550 

600 REM SPECIAL FUNCTION KEY PRESSED 

601 G = A -38 : A =A - 1 32 

602 N$<L] r L>=CHR*<Q> :CL$<W,L>=C$ 

603 ONAGOTO604 ,605 ,606,607 

604 printc*; "a ■•ir; jgotogso 

005 PR I NTC$; " -•II" .f : GOTO680 

606 PRINTC$? "^•■1"; : GOTQ680 

607 PRINTC^; " i GOTO680 

610 REM DELETE A LINE 

8 1 5 FOR J -0TO5 : \ U , J > = " " : CL$ < Li, J ) = " " : NEX 

TJ 

616 L =0:PR INT:PR INT"□ 

II 

6 17 PRINTC*; "□•■!"; 

613 GOTO550 

6E0 REM COLOUR KEY PRESSED 
6E5 C$=CHR*<C<J)>:GOTO540 
640 REM NEl-J LINE 

642 N*<UJ,L:> = " " ;CL$<W,L)=C^:PRINT” " J 

644 L=L+1: IFL =6THENL =0:GOTO690 
646 G0T0642 

650 REM ACCEPT A CHARACTER 
660 N$<W,L>=A$:CL$<W,L)=C* 

665 IFASC<A*>=34THENA*=" ! " 

670 printc*; A*; "@||"; 

680 L-L+1i IFL = 6THENL=0 ' GOTO6S0 
685 GOT0550 

630 PRINT" ...LINE NUMBER"LI+1 

692 U1=U1 + 1 l IFL1 = 50THENPR I NT " BMBPM AX 50 LINE 
S"!GOTO700 

693 IF2 = 1THENLI=LI- 1 : GOTO700 

694 GOTO540 

700 REM PRINT OUT MOVING DISPLAY 
710 PRINT 

715 PRINT"^MfflSOK. NOW I SHALL DISPLAY Y 
OUR MESSAGE 

720 PR INT"SCROLLING UP THE SCREEN IN VER 
Y LARGE 
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730 PR I NT"CHARACTERS. THE MESSAGE WILL K 
EEP ON 

740 PR INT"REPEATING UNTIL YOU EITHER 'BR 
EAK' THE 

750 PRINT"PROGRAM OR TURN OFF THE COMPUT 
ER ! " 

770 PRINT"U^RESS ANY KEY" 

780 GETA$:IFA$ =""THEN780 

795 REM DISPLAY 
800 FORJ =0TOLJ 

802 PR I NT:FORN=1TO 100:NEXTN 

803 PR INT s FORN=1TO 100:NEXTN 

804 PR INT s FORN=1 TO 100:NEXTN 

805 FORK =0TO4 
810 D$="" 

815 FORL =0TO5 

820 D3> = D$ + CL$< J ,L)+P$<L <ASC<N4J<J ,L> ) -32 , 
K ) ) + " " 

330 NEXTL 

840 PR I NT 11 BSR 11 D$ 

850 NEXTK,Js GOTO800 
999 END 

7008 REM ***************************** 
7002 REM COLOUR CODES FOR COMMODORE 64. 
7005 REM <ONLY USE THESE COLOURS) 

7010 U0=0 s U0^=!REM BLACK 

7028 Ul = l:Ul*= n a" :REM WHITE 

7038 U2 =2:U2$= " 3 " ! REM DARK RED 

7840 U3=5!U3$="U":REM GREEN 

7950 U4 =6 s U4$="3"s REM DARK BLUE 

7080 U5=S:U5$="":REM ORANGE 

7870 U6=9:U6*="BB" :REM BROWN 

7880 U7 =10! U7$ = " IS" • REM PINK 

7090 U8 = 13:U8$="H" :REM LIGHT GREEN 

7108 U9= 1 4 : U9$= " 12" '• REM LIGHT BLUE 

7110 UU=4 : UU^=" $1"s REM PURPLE 

7120 UR=12:UR$="y" : REM LIGHT GREY 

7 130 UE =7 s UE$ = "SB" : REM LIGHT YELLOW 

7148 UF=11:UF$="gT:REM DARK GREY 

7200 REM SCREEN 'POKE' CODES FOR 64. 

7210 US=1024:REM SCREEN POKE CHARACTER 
7220 UC =55296:REM SCREEN POKE COLOUR 
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7230 UG=5328l:REM BACKGROUND COLOUR 
7240 UB=53280:REM SCREEN BORDER COLOUR 
7300 REM SOUND 'POKE' CODES FOR 64. 

7310 UV =54296:REM VOLUME FOR 3 VOICES 
7320 UA=54277!REM ATTACK FOR VOICE 1 
7330 UD=54278 s REM SUSTAIN FOR VOICE 1 
7340 UH = 54273:REM HIGH BYTE FOR VOICE 1 
7350 UL =54272 s REM LOW BYTE FOR VOICE 1 
7360 UW=54276•REM WAVEFORM FOR VOICE 1 
7400 RETURN 

7500 REM ***************************** 

8000 REM INITIAL DATA 

8001 REM N$<50,5) ARE THE INPUT LINES 

8002 REM CL*<50,5> ARE THE CHARACTER COL 
OURS 

8004 REM L<X,Y> ARE THE CHARACTER LINES 

8005 REM WHERE X IS THE CHARACTER NUMBER 

8006 REM WHERE Y ARE THE HORIZONTAL LINE 
S FROM 0 TO 4 

8007 REM P$<X> ARE THE HORIZONTAL PRINT 
LINES 

8008 DIM P$ <24 >,L(66,4),N$(50,5),CL$<50, 
5 ) 


8010 

FOR J = 

0TO24 : READ 

P*< J ): NEXTJ 


8020 

DATA 

"a 


ii 

/ 

Q 9" / 

n a b 

ii 

/ 

" ■ 

8030 

a i n 

DATA 

n a 

11 

ii 

/ 

11 

m 

, "a 

□ 

, "■ 
8040 

II 

a i 

DATA 

!" 

a m 

r 

"i a ■ 

n n hi 

/ — 

a 9 

8050 

DATA 

n a 

■ as 

a 

■ n , n a 

SI II II 

S / 

9 a 

8060 

DATA 


in 

& 

m 

, n a ■ a 

■ ", 

is 

ii 

■ m 

8070 

rag it 

DATA 

-a 

m a 

a" 

1 , "a b a 

11 11 
2=! r 

■ a ■ 

3 [ 

3080 

II 

I" 

DATA 

ii [g 

& 

ii 

11 

1 

SSI 

■i 

11 n m 

a 9 

8090 

DATA 

n a 

s a 


■, n a m a ■" 



3035 REM CHARACTER LINES DATA 
8097 FORM=0TO66:FORN=0TO4 
3038 READ L<M,N>sNEXTN,M 
8100 DATA 1,1,1,1,1 
31 10 DATA 3,3,3, 1,3 
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8126 DATA 1,14,1,1,1 
8130 DATA 14,0,14,0,14 
8140 DATA 0,15,0,16,0 
8150 DATA 17,10,9,8,17 
3160 DATA 4,7,5,13,0 
8 170 DATA 1 ,9,1 , 1 , 1 
8180 DATA 9,8,8,8,9 
8190 DATA 9,10,10,10,9 
8800 DATA 1,14,9,14,1 
S210 DATA 1 ,9,20,9,1 
3220 DATA 1,1,1,10,9 
3230 DATA 1, 1 ,20,1 , 1 
8240 DATA 1,1,1,21,21 
8250 DATA 3,10,9,8,2 
8260 DATA 0,17,17,17,0 
3270 DATA 9,22,8,9,9 
3280 DATA 0,3,0,2,0 
8290 DATA 0,3,12,3,0 
8300 DATA 2,15,12,9,3 
8310 DATA 0,2,0,3,0 
8320 DATA 0,2,0,17,0 
8330 DATA 0,10,9,8,2 
8340 DATA 0,17,0,17,0 
8350 DATA 0,17,0,3,3 
8360 DATA 1,9,1,9,1 
3370 DATA 1,9,1,9,3 
8380 DATA 10,9,3,9,10 
8390 DATA 1,20,1 ,20,1 
8400 DATA 8,9,10,9,8 
8410 DATA 12,13,21,1,9 
8420 DATA 0,17,11,16,5 
8430 DATA 0,17,0,17,17 
8440 DATA 0,17,12,17,0 
8450 DATA 0,2,2,2,0 
8460 DATA 12,17,17,17,12 
3470 DATA 0,2,0,2,0 
8480 DATA 0,2,12,2,2 
8490 DATA 0,2,23,17,0 
8500 DATA 17,17,0,17,17 
8510 DATA 20,9,9,9,20 
3520 DATA 20,9,9,9,22 
8530 DATA 17,18,6,18,17 
8540 DATA 2,2,2,2,0 
3550 DATA 0,11,11,17,17 
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8560 

3570 

8580 

8590 

8600 

8610 

8680 

3630 

8640 

3650 

8660 

3670 

8680 

8690 

8700 

3710 

8780 

8730 

3790 

CTER3 


DATA 17,24,11,23,17 

DATA 20,17,17,17,20 

DATA 0,17,0,2,2 

DATA 20,17,17,23,13 

DATA 0,17,0, 18, IS 

DATA 13,2,0,3,12 

DATA 0,9,9,9,9 

DATA 17,17,17,17,0 

DATA 17,17,17,14,9 

DATA 17,11,11,11,0 

DATA 17,14,9,14,17 

DATA 17,14,9,9,9 

DATA 0,10,9,8,0 

DATA 5,3,9,9,5 

DATA 13,8,6,8,0 

DATA 6,9,9,9,6 

DATA 9,20,11,9,9 

REM END OF ASCI I CHARACTERS 

REM START OF SPECIAL FUNCTION CHARA 


3300 REM SOLID BLOCK 

3305 DATA 0,0,0,0,0 

8310 REM LINE 

8315 DATA 1,1,0,1,1 

3820 REM ZIG ZAG 

8825 DATA 11,14,11,14,11 

8330 REM DIAMOND 

3335 DATA 9,20,0,20,9 

3900 REM COLOUR KEY PRESSED CHECK 

3910 DIM C<15) 

3920 FOFM=0TO15:READC<M>:NEXTM 

8930 DATA 144,5,28,159,156,30,31,153,129 

,149,150,151 

8940 DATA 152,153,154,155 
3990 RETURN 
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How could we write a Bumper Book of programs without including the 
classic Invaders game ? Well, here it is complete with shields and 
Mothership and a screen full of the dreaded Aliens. 

1 REM *** INVASION *** 

3 REM ***BY PAUL ROPER <C> 1983 *** 


4 REM * * 

5 REM * 20,RECTORY CLOSE, * 

6 REM * ALVERSTOKE, * 

7 REM * GOSPORT. * 


8 REM ****************************** 

9 GOTO9000 

10 GOSUB10005PRINT"J" 

11 F0RA=55296T056296 : POKE A ,0 : NEXT 

12 DEF FNK<X> =X- 1023-INTC <X- 1024)/40) *40 

13 POKE49408,0:SC=0:DL=.9:LV=3 
20 REM MAIN LOOP 

30 GOSUB2000:IFLSTHENLV=1:GOTO7000 
40 GOSUB6000 

50 B=1145 + 1NT<37*RND <1 > + 1 > : IFRNO(0)>DLTH 
ENPOKEB,36 

51 SYS49219: IFPEEK<49408> >252THEN7000 

52 GOSUB6000 

55 IFQ = 60THEN7500 
70 GOSUB5000 
80 GOSUB6000 
85 SYS49219 
90 GOTO20 

1000 I $ ( 4 ) = " /■ f r r r r r r r f <■ r n 

1010 I$<2>="^ ************ 

1020 I $ < 3 ) = " | I | I | | | | | | | | " 

1030 I$< 1 > = "_ 

1040 I$<0>="© © 0 © ® o © o @ 0 % ©" 

1050 FOR I=0TO4: I<I) = 1sT<I>=12:NEXT:Q=0 
1052 C <0 ) = 144 : C < 1 ) = 158 : C <2 ) =5 : C <3 > =30 : C < 
4 ) = 158 

1060 
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1066 c= 0 :L3=0: 0=0 

1067 FORA =0TO4: R < A > =0:NEXT 
1070 Z$=" 

II 

1080 

1090 A$= "Jf^ 3 
1500 RETURN 

2000 REM MOVE INVADERS ON 
2005 IFQ=60THENRETURN 

2010 R=R+1:IFR=5THENR=0:C=C+V:IFC=0 OR C 

=12THENGOSUB3000iV=-V 

2020 IF I <R>=0THEN2010 

2025 R <R > =R < R)+V! IFR+0=16THENLS=1 

2030 PRINTP$LEFT$<V$,R+0>Z$ 

2040 PRINTPsrLEFT$(V^,R+0)TAB<R<R) >CHR$<C 
<R > )I*<R> 

2050 RETURN 

3000 REM MARCH DOWN 

3010 FOR I=0TO4: IF I Cl>THENPRINTP*LEFT$<V$ 
, I+0>Z$ 

3020 NEXT!0=0+1:RETURN 
5000 REM MOVE GUN 

5010 K=PEEK<197):REM IFK=64THENRETURN 

5011 IFK=60ANDM=0THENM=1705+G:POKEM,30:R 
ETURN 

5015 PRINTG$TAB<G>" □" 

5020 IFK=47ANDG>1THENG=G-1 
5030 IFK=44ANDG<30THENG=G+1 
5040 PRINTTAB <G)A$:RETURN 

6000 REM MISSILE 

6001 IFM=0THENRETURN 

6005 IFM<1144THENP0KEM,32:M=0:RETURN 
6010 IFPEEK (MX >30 THEN6030 
6020 P0KEM r 32:M=M-40:IFPEEK<M>=32THENP0K 
EM,30:RETURN 

6030 IFPEEK <M> =36THENP0KEM,32:M=0:RETURN 

603 1 IFPEEK(M> =37THENP0KEM,32 rM= 0 :RETURN 
6035 IFPEEK(M>=32THEN6020 

6040 IF PEEK <M> = 160THENPOKEM,32:M=0 s RETU 
RN 

6050 K=FNK(M>:H=PEEK<M>-81:T(H)=T(H>-1:Q 
=Q+1:IFT(H )=0THENI(H>=0 

6055 K =K-R(H ) :SC =SC +INT(<5-H)* 10/DL):GOS 
UB9600 
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6056 PRINT"3BC0RE:"SC;" ";:FORN=1TOL 

V:RRINT"ilSV-'S flHBHHI 11 ' : NEXT 

6057 IFK=0THENI4>(H> = " "+RIGHT$( I$(H>,21 
):POKEM,36:M=0:RETURN 

6053 IFK=23THENI$(H)=LEFT$(I$(H>,22>+" " 
:POKEM,36:M=0:RETURN 

6060 I$(H>=LEFT$(I % (H ) ,K-1)+" "+RIGHT*(I 

$<H>,23-K>:POKEM,36:M=0:RETURN 

7000 REM DEATH 

7010 REM SOUND 

7020 GO3UB3600 

7030 J r ORN= 1TO3000 ! NEXT 

7200 LV=LV-1:IFLV<1THEN7300 

7202 PR I NT" § 3 " Z $ 

7205 POKE49408,0 
7210 GOTO20 

7300 PR I NT 11 agammU GAME OVER I - MIN 

II 

73 10 PR I NT" MISPRESS SPACE TO TRY AGAIN" 

7315 WAIT197,64:POKE 198,0 

7320 GETA$:IFA$<>" "THEN7320 

7330 RUN10 

7500 REM NEW FLEET! 

7550 GOSUB 1000 : Q=0 : LS=0 : PR I NT 
7560 FORA =55296TO56295:POKEA,0:NEXT 
7570 DL=DL/1.£:LV=LV+1!GOTO20 
9000 REM SET UP UDGS 

900 1 PRINT"E INVADERS ARE 
COMING." 

9002 PRINT " BXaHSWMB _ OOCiS VV 

III " 

3003 PR I NT" KWKD EFEND AT YOUR PERIL HHET 

3004 PR I NT 11 flm—fc W J 11 

9005 PR INT"M - LEFT - RIGHT" 

3006 PRINT"MSPACEBAR - FIRE!" 

9031 POKE52,48iP0KE56,48:CLR 

9032 P0KE56334,PEEK <56334)AND254:POKE 1,P 
EEK <1)AND251 

9033 FOR I=0TO512:POKE 12288 +I, PEEK(53248 + 
I> SNEXT 

9034 POKE 1,PEEK <1)0R4:P0KE56334,PEEK(563 
34)OR 1 

9035 P0KE53272,(PEEK(53272 >AND240> + 12 
9040 READ L:IFL=-1THEN10000 
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9050 FORA =0TO?:READD:POKE12288+L*8+A,D:N 
EXT s GOTO9040 

9060 DATA81,60,66,129,195,126,36,66,129 
9070 DATA82,60,66,129,195,126,36,66,129 
9080 DATA83,24,24,102,129,189,90,60,231 
9090 DATAS4,24,36,36,60,126,126,255,153 
9100 DATA35,165,165,183,126,60,90,195,19 
5 

9110 DATA 255,0,0,0,7,7,15,255,255 

9120 DATA 254,24,24,60,255,255,255,255,2 

55 

9130 DATA 253,0,0,0,224,224,240,255,255 
9140 DATA 30,24,24,24,24,60,60,60,126 
9150 DATA 36,255,60,24,60,102,195,165,66 
9160 DATA 37,255,60,24,24,24,60,60,60 
9600 P0KE54276,128s POKE54296,0 
9605 P0KE54277,59:P0KE54278,13:P0KE54296 
,15:POKE54273,30:P0KE54272,30 
9610 P0KE54276,129:RETURN 

9999 DATA-1 

10000 REM BOMB ROUTINE 

10010 DATAA2,00,A9,00,95,FB,A9,04,95,FC 
10020 DATAE6,FB,D0,02,E6,FC,A5,FB,C9,70 
10030 DATAD0,07,B5,FC,C9,07,D0,01,60 
10040 DATAA1,FB,C9,24,D0,E7,A9,20,81,FB 
10050 DATA IS,A5,FB,69,23,85,FD,A5,FC 
10060 DATA69,00,35,FE,A1,FD,0D,00,C1,8D, 
00,Cl , A9 ,25,81 ,FD 

10071 DATA18,90,C7,AE,3D,C0,AD,20,C0,8D, 
3D,C0,8E,20,C0,20,00 ,C0,60 , * 

10080 S9 =49152 

10090 READA*:IFA*="*"THEN10 

10100 L*=LEFT$<A$,1):H*=RIGHT$(A$,1) 

10110 L=VAL<L*>:H=VAL(H*> 

10120 IFASC < L$)>64THENL=ASC<L*>-55 
10130 IFASC <H$)>64THENH =ASC-55 
10 140 P0KES9,L*16+H:S9=S9+1:GOTO 10090 
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You are about to see your infallible micro make an unbelievably simple 
mistake — that even a four year old child would spot! 


Computers are happiest in Binary arithmetic but would probably settle 
for Hexadecimal as a compromise—but if we humans insist that micros 
communicate with us in the Decimal system then we have only ourselves 
to blame if the computer seems to get it wrong occasionally. 

10 REM ** ** ROOTS <0 1983 MICHAEL BEWS 
12 REM CONVERTED 11-8-83 RICHARD PARRATT 

14 P0KE52,48:P0KE56,48:CLR 

15 POKE532S0,4:POKE53281,6:PRINTCHR3K5) 

20 OOSUB 1500 

50 PRINTCHR$<142):P0KE56334,PEEK<56334)A 
ND254 

52 POKE 1,PEEK <1)AND251:FOR 1=0 TO 2047:P 
OKEI+12288„PEEK<I+53248):NEXT 

54 POKE 1,PEEK <1)0R4:POKE56334,PEEK<56334 
)0R 1 

55 P0KE53272,(PEEK<53272)AND240)+12 

56 FOR X=1 TO 9:FOR Y=0 TO 7:READ A:POKE 
12800 +X *8 +Y, A 

57 NA=NOT<A) 

58 IF NA<0 THEN NA=256+NA 

59 POKE 13824 + X *8 + Y,NA•NEXT Y s NEXT X 

100 PRINT"SU ROOTS <01983 MICH 

AEL BEWS " 

105 PRINT" CONVERTED 1983 RICHARD PAR 
RATT" 

107 PRINT 

110 PR I NT" £|TH IS PROGRAM CALCULATES ROOTS 
USING BOTHTHE INTERNAL ' t'FUNCTION IN"; 

112 PRINT" THE COMPUTER ROM AND THE NEWT 
ON/RAPHSON REITERATIVE APPROXIMATION."; 

113 PR I NT " IS 

115 PRINT"®":PRINT"E ^ WHEN IS A 

'5' NOT A 1 5 * ?? " 

120 PRINT" ajgTTHE PROGRAM WILL DEMONSTRATE 
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ONE OF THE PROBLEMS FACED BY YOUR "; 
125 PR INT"COMPUTER WHEN IT TRIES TO"; 

130 PRINT" CONVERT THE RESULT OF IT’S 
BINARY SYSTEM CALCULATIONS INTO DECIMAL 

ii ■ 

135 PRINT" FOR DISPLAY ON THE SCREEN. 

II 

140 PR I NT "ALTHOUGH WE WOULD NEED TO EMP 
LOY MACHINE CODE METHODS TO ACTUALLY 
145 PR INT"SEE THE 'BIT' DIFFERENCE BETWE 
EN TWO SEEMINGLY IDENTICAL"; 

147 PRINT" NUMBERS WE CAN"; 

150 PRINT" SHOW YOU THE ’IMPOSSIBLE' A 
3 YOUR COMPUTER 'FAILS' TO RECOGNISE"; 
155 PRINT" THE NUMBER FOR WHICH IT IS"; 
157 PRINT" SEARCHING! 


160 PRINT" UPRESS <RETURN> "; 

162 GET X$:IF X$OCHR*<13> THEN 162 
170 PR I NT" Ify ROOTS <01083 MICH 

AEL BEWS" 

175 PR I NT: PR I NT " SI ANY ROOT CAN BE CA 

LCULATED BY"; 

177 PRINT" REITERATIVE APPROX I 

MATION 

180 PR I NT" 31 - * r - + G(R-l) 


181 PR I NT " R 


G“| k- 


j 


185 PRINT- 


187 PRINT"*® 
NUMBER 

188 PRINT" 
REQUIRED "; 

18S PRINT" 


190 PRINT" 

ON TO 6N "; 

191 PRINT" 

HE FORMULA"; 

192 PR I NT " Si 


WHERE N=ORIGINAL 
R=ROOT NUMBER 
G=ANY NUMBER 
A=APPROXIMATI 
PRODUCED BY T 


193 PR I NT "M&3IF A< >G THEN WE LET G = A AND 
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REPEATEDLY APPLY THE FORMULA"; 

194 PRINT" MAKING G EQUAL TO THE PRECEDI 

NG VALUE OF 'A' UNTIL A=G "; 

195 PRINT" AT THIS POINT 

A=*N 

196 PR INT"£□ PRESS <RETURN>" 

197 GET X*i IF X$OCHR$<13) THEN 197 

200 PR I NT 11 ROOTS <01983 MICH 

AEL BEWS" 

201 PR I NTs PR INT" |3 “ * r - + G < R - 

i > -1 "; 

202 PRINT"^ R l G“| k_ -> 

II • 

204 PRINT"*- 

■ - — — -— II a 

/ 

206 PR INT:PR INT "m EXAMPLE TO FIND 

1416" 

208 PRINT"* -" 

210 PRINT"MS LET G=3 <A REASONABLE GUESS 
AS "; :G =3:N=16 

212 PRINT" |♦16=4 AS YOU KNOW) 

M ■ 

/ 

225 GOSUB230 
227 GOTO 235 

230 LET A=<NYG+0/2: RETURN 
235 PRINT"B^G=";G;TAB< 16); "GIVES a=";a: 
GOSUB 1100 
237 PRINT 

240 PRINT" M3WE NOW LET G=";A;" 

242 PRINT" S3AND TRY THE FORMULA AG 

AIN" 

243 PRINT 

245 G=A:GOSU6230 

250 PRINT"A.g = ";g;tab<16); "GIVES a=";a:g 
OSUB 1100 

260 IF A=G THEN GOTO 280 
270 GOTO 245 

280 PR I NT: PR I NT " ^THEREFORE #16 

= ";A:GOSUB 1100 

290 PRINT:PRINT"D LOOK AT THIS EXAMPL 

E CAREFULLY" 

291 PR INTAND THEN PRESS <RETURN>" 

292 GET X$: IF X*OCHR$<13) THEN 292 

300 PR I NT" j&J ROOTS <01983 MICH 
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AEL BEWS" 

305 PR I NTs PR I NT "S3 

1 > n 

306 PR INT" j|3 R l 

II ■ 

307 PRINT"*- 


320 PRINT"^ 

ii 

325 PR I NT "Hi 


- * r — + G <R- 

G~| K— -» 


EXAMPLE TO FIND 1425 


330 PRINT"MSLET G=3 AGAINC1*25=5 AS WE K 
NOW) 

340 LET G = 3 s N=25 s GOSUB230 

350 PRINT"^";:GOSUB 1100:PRINT"QSG =";G;T 
ABC 16); "GIVES A =";A 

360 PRINT"M^S®mmaMrJE NOW LET G=";A: PR 
INT" l&HAND TRY THE FORMULA AGAIN" 

365 LET LI =PEEK<214> 

370 LET G=A:GOSUB 230 

380 PRINT"mj3=";G;TABC 16); "GIVES A = ";A:G 
OSUB 1100 

390 IF A=G THEN GOTO 400 
395 GOTO 370 

400 PRINT:PRINT" ^MTHEREFORE *25 

= ";A:GOSUB 1100 

405 PRINT "YOUR COMPUTER SHF A I LEDSHi TO S 
TOP ON THE 1ST" 

406 PRINT" BG = 5 GIVES A = 5£" 

407 PR I NT" BECAUSE G DOES NOT EQUAL ]^g§PRE 
CISELYK^ 5! ! " 

410 PR I NT: PR I NT " B ENTER sSI’R 1 ^ TO RE 

PEAT EXAMPLES" 

4 12 PR I NT" □ OR JUST 3J<RETURN>* TO TRY 
YOUR OWN"; 

414 GET X$:IF X$="R" THEN GOTO 200 

416 IF X*OCHR$<13> THEN 414 

440 PR INT" ROOTS <01983 MICH 

AEL BEWS" 

500 PRINT: INPUT "HUNTER NUMBER <N) : 

AND < 1000000S'* ;N$ 

510 IF N$="" THEN GOTO440 

515 FOR X=1 TO LENCN$>:XD=ASC<MID$<N*,X, 
1>>:IF XD <ASC("0") OR XD >ASC <" 9 " > THEN440 
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520 NEXT X 

530 LET N=VAL<N$): IF N< . 01 OR NM000000 
GOTO 440 

550 PRINT" £MgME?lE NTER NUMBER OF THE DESIR 
ED ROOT 

560 INPUT “mOOT <>1 AND <100) B"; R$ 

570 IF R$< > 11 " THEN 580 
575 PRINT"n 

":GOTO 550 

580 FOR X = 1 TO LEN<R$>:XD=ASC<MID$<R$,X, 
1))!IF XD < ASC < " 0 " ) OR XD >ASC("9")THEN575 
590 NEXT X 

600 LET R=VAL <R$):IF R<£ OR R>99 THEN G 
OTO 575 

610 LET G = 2*(Nt <1/R)> s LET X=1 
650 LET A = < N/Gt<R-l ) +G * < R - 1 ))/R 

660 PRINT "SMHHOTMfflVX; " > A=";A 

670 IF ABS<A-G)<.0001 THEN GOTO 700 

680 LET X=X+1!LET G=A:GOTO 650 

700 PR INT:PR INT"S THE";R; "ROOT OF" ; N; "IS 

";TAB<19);AJGOSUBl100 

720 PRINT 

ENTER HgJ'GTBSTO QUIT" 

730 PRINT" OR m§<RETURN >£22 TO TRY 

AGAIN"; 

735 GET X$:IF X$=" " THEN 735 

740 IF X*="Q H THEN PRINT" BaU " =F0KE53272, 

<PEEK <53272)AND240)+5:END 

750 GOTO 440 

1000 DATA 31,24,24,24,216,112,96,0 
1010 DATA 112,216,48,96,243,0,0,0,102,11 
8,126,126,110,102,0,255 
1020 DATA 24,56,24,24,24,60,0,255 
1028 DATA 48,96,96,96,48,0,0,0,12,6,6,6, 
12 , 0 , 0,0 

1030 DATA 0,88,108,64,64,0,0,0 
1040 DATA 0,0,60,0,0,0,0,0,48,112,48,48, 
120 , 0 , 0,0 
1099 GOTO 1099 

1 100 SL = 984 +40*PEEK<214):SC =55256+40*PEE 
K <214)s FOR J=0 TO 39:POKESC+J,PEEK<646) 
1110 IF PEEK < SL +J)=32 THEN POKESL+J,160 
1120 NEXT J 
1130 RETURN 
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1500 PRINT"iJ ROOTS (01983 MIC 

HAEL BEWS" 

1510 PR I NT 11 MMMMI 
4 * 4 * 44 " 

1520 FOR QQ=1 TO 4 SPRINT" 44 

44 H sNEXT QQ 

1530 PRINT" 44 PLEASE WAIT 4 

4 " 

1540 FOR QQ 3 1 TO 4 SPRINT" 44 

44 " sNEXT QQ 

1550 PRINT" 4444444444444444444 

4 " 

1560 RETURN 



Anagrammatic 


This is a simple anagram jumbler. There are few things more infuriating 
than staring blankly at crossword cluse, unable to de-jumble the letters. 
This little program will hopefully get the old brain ticking again with 
some fresh ideas on how to unscramble the problem. 

10 REM ANAGRAMMATIC.LIALWYN 

IS REM SIMPLE ANAGRAM SOLVER 
20 GOSUB63900 
30 POKEUG ,UF s POKEUB,U2 
35 PRINTU3$; 

40 PR I NT "ANAGRAMMATIC" 

45 PRINTU7*; 

50 PR INT"MIF YOU ARE A CROSSWORD ADDICT, 

THEN 

60 PRINT"YOU WILL KNOW THE PROBLEMS OF T 
RYING TO 

65 PRINT"RE-ARRANGE LETTERS. 

70 PR INT" gpOLLOW THE INSTRUCTIONS AND TH 
EN 

75 PRINT"SIT BACK AND WATCH THE SCREEN A 
S EVERY 

80 PRINT"POSSIBLE COMBINATION RUNS UP BE 
FORE 

85 PRINT"YOUR VERY EYES. THE AIM IS NOT 
TO LOOK 

90 PRINT"AT EVERY WORD-GROUP, BUT SIMPLY 
TO 

95 PR I NT"GLANCE AT THE SCREEN OCCASIONAL 
LY AND 

100 PR INT"YOU MAY WELL GET INSPIRATION. 

102 PR INT"SALTERNATIVELY r PUT IN A PRINT 
ER 

103 PR INT"SUBROUTINE IF YOU HAVE AN OUTP 
UT FOR 

104 PRINT"'HARD-COPY'." 

105 PR I NT "STRESS ANY KEY TO START" 

106 GETA$sIFA$=""THEN106 

110 print"J"U9$;tab<4>; n a g r a 

m a t i cwmmm " 




Q 
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130 PR INT"HfifilTYPE ONLY THE LETTERS TO BE 
REARRANGED-" 

144 INPUT "H";A$ 

150 PRINT 
160 L=LEN<ASO 

170 PR INT"ARE ANY LETTERS./SPACES KNOWN? 

< Y./N ) 

180 GET Z$: IF Z$=" M THEN 180 
130 IF Z$="N" THEN £40 

£00 PR I NT" KTTYPE IN THE KNOWN ORDER AS PE 
R EXAMPLE. 

£05 PR INT"HE.G. ' D-F- -EE'" 

£06 INPUT"^";K$:W=L 

£10 T=0:FOR J=1T0LEN<K$):IF MID*<K*,J,1> 
= THEN T=T +1 

££0 NEXT J:IF T<>L THEN GOSUB1000:GOTO£0 
0 

£30 GOTOS70 

£40 K$="":FOR J=1TOL:K$=K$+"-":NEXT J 
£50 INPUT"DUMBER OF LETTERS TO BEGIN" ;W 
£60 IF W< 1 OR W>L OR WOINT(W) THEN GOSU 
B1000:GOTO£50 
£70 DIM B$(L>,C$<L>,Q<L> 

£80 PRINT"- 


£90 GOSUB500 
300 FOR J=W TO L 
310 K = 1 
3£0 Q < K > = 1 

330 IF B*<Q<K>>="" THEN 440 
340 C$<K)=B$<Q<K)):B$<Q<K>)="" 

350 K =K +1 

360 IF K< =J THEN 3£0 
370 A=1 

380 FOR S=lT0LEN<K4O 

330 IF MID$<K*,S,1THEN PRINT C$(A> 

; s A=A+1:G0T0410 

400 PRINT MID*<K*,S,1>; 

410 NEXT S:PR INT, 

4£0 K =J 

430 B*<GKK>>=MID$<A$,Q<K>,1) 

440 GKK ) =Q <K > + 1 

450 IF Q(KX=L THEN 330 

460 K =K-1 
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470 IF K >=1 THEN 430 
480 NEXT J 

490 PRINT" ESgrrHHT'S ALL THE POSSIBLE ANAG 
RAMS WRITTEN" 

495 PR INT" MTYPE 'RUN' AND RETURN FOR AND 

THER GO..."SEND 

500 FOR N=1TOL 

510 B^<N)=MID$<A$,N^1> 

520 NEXT N 
530 RETURN 

1000 PRINT"iS^: R R O R ! PLEASE REDO 

..":RETURN 

63900 REM COMMODORE 64 CLR/SOUND CODES 
63902 U3=1024:UC=55296:UG=53281 

63904 UB=53280:UV=54296:UA=54277:UD=5427 
8:UH=54273:UL=54272 

63905 UW=54276 s U0 =0:U0$="gj"s U1 = 1:U1$="£" 
:U2=2:U2$="^" 

63906 U3=5:U3$= "U" :U4=6:U4$="3" :U5=8:U5$ 
="":U6=9:U6$ = 

63910 U7 = 10 s U7$= "0" :U8=13:U8^= ,, il" :U9=14: 
U9$ =:UU =4s UU*= u &" 

63915 UR=12 s UR$=sUE=7sUE$ ="H":UF=11:U 
F$ ="l" :RETURN 




Biorhythms 


The theory of biorhythms assumes that the physical, emotional and 
intellectual capacities of an individual are subject to regular cycles of 23, 
28 and 33 days respectively. During each cycle the curve will increase to 
a high point, then sink below the median value, tracing out a sine wave. 
These cycles commence at birth, and progress at different rates, 
producing crossovers, considered to signify ‘critical’ periods (days when 
the individual is more prone to accident or error of judgment) when the 
crossover is one involving the low values of the curves. Especially crucial 
are those days when all three curves meet. Positive high values at 
crossovers have a good effect. 


The program calculates the cycles from the day of birth, and displays a 
graph of the curves for a period of one month from the chosen date. 

10 REM ***BIORYTHMS 

20 REM ***BY ROBERT ERSKINE*** 

25 GOSUB9000 

30 PR INT" iMB IORYTHMSIM" 

35 INPUT"YOU NAME PLEASE";N$ 

40 PR INT"BffTHIS PROGRAM WILL COMPUTE YOUR 
PRESENT" 

50 PR INT"STATES OF YOUR PHYSICAL,EMOTION 
AL AND" 

60 PRINT"INTELLECTUAL CYCLES.PLEASE ENTE 
R YOUR" 

70 PR INT"DATE OF BIRTH AND THE DATE TODA 

Y. Mai" 

80 INPUT"WHAT YEAR WERE YOU BORN";YB:YB= 

INT <YB) 

90 INPUT"WHAT MONTH <NUMBER) " ;MB : IFMB<10 
RMB >12THEN90 

100 INPUT"WHAT DAY IN THE MONTH";DB:IFDB 
<10RDB>M(MB >-M<MB-1)THEN100 
110 INPUT"WHAT IS THE YEAR TODAYTY:IFT 
Y < YBTHEN1 10 

120 INPUT"THE PRESENT MONTH";TM: IFTM<1 OR 
TM >12THEN120 

130 INPUT"THE DAY TODAY";TDi IFTD<1ORTD >M 
< TM)-M<TM-1)THEN130 
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140 PRINT"8IM3REAT.NOW I'LL WORK OUT YOU 
R B1ORYTHMS - " 

150 FORT =1TO3000iNEXT 
160 T = <YB-1>*365.25 
170 T2 =<TY-1>*365.25 
180 IFMB >1THENT = T+M < MB- 1> 

130 IFTM>1THENT2 = T2 +M< TM-1> 

200 IFMB>2 AND YB/4 =INT < YB/4 > THEN T = T+1 
:REM LEAP YEAR 

2 10 IF TM>2 AND TY/4=I NT<TY/4> THEN T2 = T 
2+1:REM LEAP YEAR 
220 T = T + DBiT2=T2 +TD 
330 D=T2-T 

340 IF TM=MB AND TD=DB THEN GOSUB5000 
350 PR INT" LJ3 IORYTHMS FOR "N$:PR INT"DATE: 
"TD"/"TM"/"TY 

360 PRINT"•-PHYSICAL O-EM0TIONAL *-INTEL 
LECTUAL" 

365 PR I NT" 3+-TODAY. EVERY POINT SHOWS THE 
NEXT DAY" 


500 P =D-<INT(D/23 > *23 > 

510 E=D-<INT CD/28)*28 > 

520 I= D-<INT <D/33)*33 > 

530 FORL =1T03:0 =D-1 

540 FORA =0TO33 

550 0=0+1:IFO=P(L>THENG=0 

560 Y=INT <10 #S IN< 0 *2 * */P <L >)):SP=1544-Y* 
40+A 

570 POKESP, C <L > : P0KE54272 +SP ,0 
580 NEXTA,L 

590 PRINT"MSHHSMBHHPRESS SPACE FOR ANOTH 
ER ANALYSIS"; 

600 GETA$:IFA$<>" "THEN600 

700 RUN 
939 END 

5000 REM PLAY 'HAPPY BIRTHDAY' 

5005 PR I NT " &SH APPY BIRTHDAY "A$"!" 

50 10 S=54272:FORL=0TO24 : POKES+L,0:NEXT:P 
OKES+5,3:POKES +6,0:POKES + 12,72 
5015 POKES+13,0 
5020 POKES +24,15 
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5030 READH,L,DR: IFH = - 1THENFORT =1TO3000:P 
0KE54296,0:RETURN 

5031 W= <H*£56+L>/2:E=INTCW/256>:R=W-E*25 
6 

5040 POKES+7,R:POKES+3,E:POKES+ 1,H:POKES 
,L:POKES +4,17:POKES+ 11,17 

5050 FORT=1T0DR/3:NEXT:POKES+4,16:POKES + 
11,16 

5060 FORT=1TO30:NEXT:GOTO5030 
5070 REM TUNE DATA FOLLOWS 
9000 REM SETUP 

9010 DATA31,53,90,120,151,181,212,243,27 

3,304,334,365 

9020 DIM M <12 > 

■3030 FORA= 1TO 12 : READM< A ) : NEXT 
9040 C(1>=S1:C<2>=87:C<3)=42 
3050 P(1>=23:P(2>=28:P(3) =33 
3068 RETURN 

3070 REM TUNE DATA FOLLOWS 

9000 DATA35,75,500,35,75,250,33,126,1000 

,35,75,1000,45,138,1000,43,52,2000 

3090 DATA35,75,500,35,75,250,33,126,1000 

,35,75,1000,51,37,1000,45,198,2000 

9100 DATA35,75,500,35,75,250,68,149,1000 

,57,172,1000,45,133,1000 

3110 DATA43,52,1000,38,126,3500 

3120 DATA61,126,500,61,126,250,57,172,10 

80,45,138>1000,51,37,1000,45,138,3000 

3130 DATA-1,-1,-1 



Bulls and Cows 


Choosing a four digit number, the computer will respond to your 
guesses (or deductions, we hope) by displaying a bull when you get a 
correct digit in the right place, and a cow when a number you input also 
occurs in the computers’ number, but not in the same place. You should 
note that the computer number can have the same digit repeated. 

You can choose the number of guesses you’re allowed, making it more 
difficult for yourself as you get more practiced. 

0 REM***64 VERSION*** 

1 REM BULLS AND COWS BY ROBERT ERSKINE , 
ADAPTED BY DAVID BUCK 

5 PRINT" LKKW ETTING UP..." 

6 POKE 52,48 : POKE 56,48:CLR 

7 POKE 53281,6:P0KE 53280,14 
10 GOSUB 9000 

15 DIM A<4>,H<4>,J<4>,N<4) 

20 GOSUB 8000 
26 FOR X=1 TO 4 

100 R=RND<-TI): INPUT" |OW MANY GUESSES DO 
YOU WANT";T 
1 10 GOSUB 1000 

120 PRINT "-s HAVE CHOSEN A NUMBER" : FOR A 
=1 TO 1000:NEXT A 
130 GOSUB 2000 
135 FOR Q = 1 TO T 

140 INPUT "ENTER YOUR GUESS NOW <4 DIGIT 
S ) "; G 

150 GOSUB 200 

160 GOSUB 3000 

170 IF BLACK<4 THEN NEXT Q 

180 FOR A =1 TO 1000:NEXT A:GOSUB 4000 

NY KEY TO RESTART" 

195 GET A$:IF A$="" THEN 195 

196 GOTO 100 

200 LET BLACK =0:LET WHITE=0 

205 FOR R =1 TO 4:LET A<R)=0:LET H<R>=0:L 

ET J <R)=0:NEXT R 
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210 LET G$=MID*<STR$<G>,2) 

215 FOR X=1 TO 4 

216 LET A<X)=VAL<MID$<G$,X,1>> 

217 NEXT X 

220 FOR X=1 TO 4 

230 IF A<X)=N<X> THEN LET BLACK=BLACK+1: 

LET H <X) = 1:LET J(X> = 1 

240 NEXT X 

260 FOR X=1 TO 4 

270 FOR Y=1 TO 4 

280 I FA <X > =N<Y)ANDH <Y)=0ANDJ <X)=0THENLET 
WH ITE =WH ITE + 1 :LETH<Y> = 1 :J <X> = 1 : GOTO 310 
290 NEXT Y 
310 NEXT X 
320 PRINT Q; 

330 RETURN 

1000 FOR X=1 TO 4 

1010 LET N<X) = INT <RND(TI)*9) + 1 

1020 NEXT X 

1030 RETURN 

2000 POKE 53280,14s POKE 54281 ,6 : PR INT n 6iU 

II i 
F 

2010 POKE 53272,<PEEK<53272) AND 240>+12 
:PR INT"GUESSES BULLS COWS" 

2020 PRINT 
2030 RETURN 

3000 IF BLACK=0 THEN 3070 

3010 LET F = 13 

3020 FOR X=1 TO BLACK 

3030 PRINT TAB<F>; "W5H" f 

3040 GOSUB 10000 

3050 LET F =F + 1 

3060 NEXT X 

3070 IF WHITE =0 THEN 3 130 
3030 LET F =22 
3035 FOR X=1 TO WHITE 
3090 PRINT TAB <F ) ; " jgAf!"; 

3100 GOSUB 10000 
3110 LET F =F + 1 
3120 NEXT X 
3130 PRINT 
3160 RETURN 

4080 POKE 53272,23:IF BLACK<4 THEN 4030 
40 10 PRINT"L^MS 10U ARE CORRECT. | HE NUMB 
ER CHOSE WAS 
4020 GOTO 4040 
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4030 PR I NT " JH HAT WAS NOT VER Y GOOD . | HE N 
UMBER ^ CHOSE WAS "J 

4040 FOR X= 1 TO 4 
4050 PRINTN(X); 

4060 NEXT X 

4070 PR INTSPRINTSPRINT "AND YOU GUESSED 

II • 

r 

4080 FOR X=1 TO 4 
4090 PRINT A<X>; 

4100 NEXT X 
4110 PRINT 
4120 RETURN 

8000 print" l ulls and -ows" 

8010 PR I NT 11 IMUMM " 

8020 PR INT"J3I HE OBJECT OF | ULLS AND -OWS 
IS TO GUESS"; 

8030 PRINT"A FOUR DIGIT NUMBER,CHOSEN BY 
THE " 

8040 PR INT"COMPUTER.#FTER EACH GUESS THE 
COMPUTER" 

8050 PR INT"WILL GIVE YOU CLUES;EACH BULL 
INDICATES" 

8060 PR INT"A CORRECT DIGIT IN THE CORREC 
T POSITION" 

8070 PRINT"AND EACH COW INDICATES A CORR 
ECT DIGIT" 

8080 PRINT"IN THE WRONG POSITION. I HE DIG 
ITS USED ARE 1-9." 

8090 PRINT"gHMSSi!iS8“RESS ANY KEY TO STAR 
T" 

8100 GET A$sIF A$="" THEN 8100 
8110 RETURN 

9000 DATA 0,2,3,255,126,126,66,66,0,0,3, 
255,126,126,66,66 

9020 POKE 56334,PEEK<56334) AND 254 
9030 POKE 1 ,PEEK Cl) AND 251 
9040 FOR 1 = 16 TO 511 SPOKE I + 12288,PEEK<I 
+53248)sNEXT 

9050 FOR 1=0 TO 15 s READ AsPOKE 1 + 12288,A 
sNEXT 

9060 POKE 1,PEEK < DOR 4 

9070 POKE 56334,PEEK(56334) OR 1 

9080 LET S=54272 

9090 FOR L=S TO S+24SPOKE L,0 s NEXT L 
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9100 POKE S +5,9iPOKE S+6,0:POKE S+24,15 
9110 RETURN 

10000 POKE S+1 r 33 s POKE S,135 

10010 POKE S+4,33 

10020 FOR T= 1 TO 100 .’NEXT T 

10030 POKE S +4,32 

10040 RETURN 



Endings 


Here’s a textual game which is designed to make you delve the depths of 
your geographical knowledge. (And I do mean depths. Did you know 
that Ruteng was a town in Indonesia? Oh well...) Players must think of 
a geographical name which starts with the last letter of the name offered 
up by the player who went before. So it’s you against the computer, who 
from time to time will try to cheat by offering you fictitious names. 
Challenge if you dare! Of course if you’re pushed you can try to cheat 
too, but the computer may well challenge your entry. 

5 REM ENDINGS. ...... .WALWYN 

10 GOSUB7000 
40 Ml=0:Me =0 

50 DIM G$<500>,C<500>,K$<500>,X<500> 

55 PR INT"J 

60 PR INT"THERE IS A GAME OF ’GEOGRAPHY E 
NDINGS'" 

65 PR INT"WHERE EACH PLAYER IN TURN HAS T 
0 NAME” 

70 PR INT"A COUNTRY,TOWN,RIVER,MOUNTAIN 0 
R OTHER" 

72 PR INT"GEOGRAPH ICAL PLACE-NAME WHICH 

ii 

74 PR I NT "STARTS WITH THE j$LAST LETTERH 0 
F THE " 

76 PR INT"PREV IOUS PLACE-NAME." 

76 PR INT"SI SHALL TAKE YOU ON. . . . I MAY C 
HALLENGE 

80 PRINT"YOU IF I DON’T THINK YOU ARE GI 
VING ME" 

82 PRINT"A REAL PLACE-NAME. YOU CAN CHAL 
LENGE ME" 

84 PRINT"IF YOU THINK I AM MAKING SOMETH 
ING UP." 

86 PR I NT "gJWHEN IT IS YOUR GO, YOU PRESS 
EITHER" 

88 PR I NT" *13 E TURN* IF YOU ACCEPT MY NAME 
OR" 

90 PR I NT"H * i IF YOU WISH TO CHALLENGE 
ME. " 
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92 PR I NT" g|I SHALL LEARN AS WE GO. NO PL A 
CE-NAME" 

94 PRINT"MAY BE USED MORE THAN ONCE." 

100 DIM C$<10) 

101 REM C$=TYPE OF GEOGRAPHICAL DATA FRO 
M 0-8 

102 C$<0>="A CONTINENT":C$<1)="A COUNTRY 
IN" 

103 C$<2)="A RIVER IN":C$<3)="A MOUNTAIN 
IN" 

104 C*<4)="A LAKE IN":C*<5)="A TOWN IN" 

105 C$(6)="A DESERT IN"?C$<7>="AN ISLAND 
IN" 

106 C$<8)="AN OCEAN" :C$<9)="A SEA" 

107 C^(10)="A DISTRICT IN" 

110 REM START OF DATA 

111 REM DATA IS STORED AS. 

112 REM 1) G$=GEOGRAPHICAL NAME 

113 REM 2) C=SUBSCRIPT NUMBER TYPE OF C* 

114 REM 3) K$=COUNTRY INVOLVED 

115 REM FIRSTLY FIND OUT HOW MANY ENTRIE 
S IN DATA... 

117 N=0 

1 IS READG$<N>,C<N),K$<N>: IFG*<N)="ZZZ"TH 
EN1000 

119 N=N+1:GOTO 118 

120 DATA AACHEN,5,W.GERMANY 

121 DATA ABERFAN,5,WALES 

122 DATA ABBEVILLE,5,FRANCE 

123 DATA ABU DHAB1,1,THE GULF 

124 DATA ACAPULCO,55, MEXICO 

125 DATA ADDIS ABABA,5,ETHIOP IA 

126 DATA AS IA,0," " 

127 DATA AFRICA,©,"" 

128 DATA AUSTRALIA,©,"" 

129 DATA AUSTRALASIA,©,"" 

130 DATA AMERICA,0,"" 

131 DATA ARCTIC,0,"" 

132 DATA ANTARCTICA,©,"" 

133 DATA ANAN,5,JAPAN 

134 DATA AMADI,5,SUDAN 

135 DATA AMUR,2,THE USSR 

136 DATA ANGLESEY,7,BRITAIN 

137 DATA ANGERS,5,FRANCE 
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138 DATA ARDLUI,5,SCOTLAND 

139 DATA ARNHEM,5,HOLLAND 

140 DATA AVON,E,BRITAIN 

141 DATA ARRAN,7,BRITAIN 
14£ DATA AYR,5,SCOTLAND 

143 DATA ASCENSION,7,THE ATLANTIC OCEAN 

144 DATA ATLANTIC,8,"" 

145 DATA AFGHANISTAN,1,ASIA 

146 DATA ARLES,5,FRANCE 

147 DATA AXMINSTER,5,BRITAIN 

148 DATA ARNO,2,ITALY 

149 DATA BRITAIN,1,EUROPE 

150 DATA BOLIVIA,1,SOUTH AMERICA 

151 DATA BARCELONA,5,SPAIN 

152 DATA BALI,7,INDONESIA 

153 DATA BANFF,5,SCOTLAND 

154 DATA BOTSWANA,1,AFRICA 

155 DATA BASILDON,5,ENGLAND 

156 DATA BELIZE,1,CENTRAL AMERICA 

157 DATA BOSTON,5,THE UNITED STATES 

158 DATA BELGIUM,1,EUROPE 

159 DATA BRUSSELS,5,BELGIUM 

160 DATA BULGARIA,1,EASTERN EUROPE 

161 DATA BULAWAYO,5,ZIMBABWE 

162 DATA BURY,5,ENGLAND 

163 DATA BERLIN,5,GERMANY 

164 DATA BAYEUX,5,NORTHERN FRANCE 

165 DATA BOURNEMOUTH,5,ENGLAND 

166 DATA BRAZIL,1,SOUTH AMERICA 

167 DATA BEN NEVIS,3,SCOTLAND 

168 DATA BIARRITZ,5,FRANCE 

169 DATA BLOIS,5,FRANCE 

170 DATA BIU,5,NIGERIA 

171 DATA CADIZ,5,SPAIN 

172 DATA CAIRO,5,EGYPT 

173 DATA CAMBRIDGE,5,ENGLAND 

174 DATA CASPIAN,9,"" 

175 DATA CATERHAM,5,ENGLAND 

176 DATA CHAD,1,AFRICA 

177 DATA CHINA,1,ASIA 

178 DATA CHILE,1,SOUTH AMERICA 

179 DATA CORFU,7,THE MEDITERRANEAN 

180 DATA CONGO,2,AFRICA 

181 DATA CORINTH,5,GREECE 

182 DATA CYPRUS,!,THE MEDITERRANEAN 
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183 

DATA 

CUENCA,5,SPAIN 


184 

DATA 

CROUJBOROUGH ,5 ,ENGLAND 


185 

DATA 

COSTA RICA,1,CENTRAL AMERICA 

186 

DATA 

CRACOW,5,POLAND 


137 

DATA 

CORDOBA,5,SPAIN 


188 

DATA 

COPENHAGEN,5,DENMARK 


139 

DATA 

CRATI,5,ITALY 


190 

DATA 

CRES,7,YUGOSLAV IA 


181 

DATA 

CUZCO,5,PERU 


192 

DATA 

DENMARK,1,EUROPE 


193 

DATA 

DART,2,ENGLAND 


194 

DATA 

DATIA,5,INDIA 


195 

DATA 

DEVIZES,5,ENGLAND 


196 

DATA 

DILI,5,INDONESIA 


197 

DATA 

DON,£,THE USSR 


198 

DATA 

DNIEPER,£,THE USSR 


199 

DATA 

DEE,£,WALES 


£00 

DATA 

DONDO,5,ANGOLA 


£01 

DATA 

DERBY,5,ENGLAND 


£02 

DATA 

DORES,5,SCOTLAND 


£03 

DATA 

DUNK IRK,5,FRANCE 


£04 

DATA 

DURBAN,5,SOUTH AFRICA 


£05 

DATA 

DUNGU,5,Z A IRE 


£06 

DATA 

DEAL,5,ENGLAND 


£07 

DATA 

DOVER,5,ENGLAND 


£08 

DATA 

DOOM,£,SCOTLAND 


£09 

DATA 

DOUGLAS,5,THE ISLE OF 

MAN 

£10 

DATA 

DRAU,£,AUSTRIA 


£1 1 

DATA 

DEJ,5,ROMANIA 


£ 1 £ 

DATA 

DALDA,5,IVORY COAST 


213 

DATA 

ELBE,2,GERMANY 


£14 

DATA 

ELBA,7,THE MEDITERRANEAN 

£15 

DATA 

ELY,5,ENGLAND 


216 

DATA 

EL SALVADOR,1,CENTRAL 

AMERICA 

£17 

DATA 

ELMAL1,5,TURKEY 


£18 

DATA 

ENGLAND,1,EUROPE 


£ 19 

DATA 

EUROPE ,0 , " 


££0 

DATA 

ESTEPONA,5,SPAIN 


££ 1 

DATA 

ETHIOPIA,1,AFRICA 


£££ 

DATA 

ERIE,4,CANADA 


££3 

DATA 

EVEREST,3,ASIA 


£24 

DATA 

EXE,2,ENGLAND 


££5 

DATA 

ELAT,5,ISRAEL 


£26 

DATA 

EDHESSA,5,GREECE 
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£27 

DATA 

EL QASR,5,EGYPT 

£28 

DATA 

ETON,5,ENGLAND 

cc'S 

DATA 

ELDORADO ,.5 , ARGENTINA 

£30 

DATA 

ELEPHANT,7,THE ATLANTIC 

£31 

DATA 

EASTBOURNE,5,ENGLAND 

£32 

DATA 

EKSJO,5,SWEDEN 

233 

DATA 

ETTRICK,£,SCOTLAND 

234 

DATA 

FRANCE,1,EUROPE 

£35 

DATA 

FINLAND,1,EUROPE 

236 

DATA 

FORFAR,5,SCOTLAND 

237 

DATA 

FUXIN,5,CHINA 

23S 

DATA 

FORT GEORGE,5,CANADA 

£39 

DATA 

FARNBOROUGH,5,ENGLAND 

£40 

DATA 

FAXE,2,SWEDEN 

£4 1 

DATA 

FARSUND,5,NORWAY 

£42 

DATA 

FIJI,7,THE PACIFIC 

2*3 

DATA 

FROME,2,ENGLAND 

£44 

DATA 

FRAY BENTOS,5,URUGUAY 

245 

DATA 

FORST,5,EAST GERMANY 

£48 

DATA 

FINDHORN,£,SCOTLAND 

£47 

DATA 

FUJIYAMA,3,JAPAN 

£48 

DATA 

FOX,2,THE UNITED STATES 

o CJ 

DATA 

FENIT,5,IRELAND 

£50 

DATA 

FAO,5,IRAQ 

£51 

DATA 

FEIRA,5,BRAZ IL 

£52 

DATA 

GABON,1,WEST AFRICA 

£53 

DATA 

GANGES,2,INDIA 

254 

DATA 

GDANSK,5,POLAND 

£55 

DATA 

GUATEMALA,1,CENTRAL AMERICA 

256 

DATA 

GOKSUN,5,TURKEY 

£57 

DATA 

GIRONDE,2,FRANCE 

£58 

DATA 

GIFU,5,JAPAN 

£59 

DATA 

GOBI,6,ASIA 

260 

DATA 

GORING,5,ENGLAND 

£8 1 

DATA 

GRETNA GREEN,5,BRITAIN 

£62 

DATA 

GUINEA,1,AFRICA 

£83 

DATA 

GUNGU,5,Z A IRE 

£64 

DATA 

GREAT DUNMOW,5,ENGLAND 

£65 

DATA 

GRAZ,5,AUSTRIA 

ru 

(D 

CD 

DATA 

HUNGARY,1,EUROPE 

£67 

DATA 

HEBI,5,CHINA 

£63 

DATA 

HATTON,5,ENGLAND 

£69 

DATA 

HAMBURG,5,WEST GERMANY 

£70 

DATA 

HARWICH,5,ENGLAND 
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271 DATA HOBART,5,AUSTRALIA 

272 DATA HEREFORD,5,ENGLAND 

273 DATft HONDURAS,1,CENTRAL AMERICA 

274 DATA HONOLULU ,5 ,HAUJA I I 

275 DATA HONG KONG,7,AS IA 

276 DATA HUDSON,2,THE UNITED STATES 

277 DATA HUAI HO,2,CHINA 

278 DATA HUE,5,VIETNAM 

279 DATA HYDERABAD,5,INDIA 

280 DATA HOLYHEAD,5,WALES 

281 DATA INDIA,1,ASIA 

282 DATA IMATRA,5,FINLAND 

283 DATA INA,5,POLAND 

284 DATA IRAQ,1,THE MIDDLE EAST 

285 DATA IPOH,5,MALAYS IA 
236 DATA IWO,5,NIGERIA 

287 DATA ISLAMABAD,5,PAKISTAN 

288 DATA ICELAND,1,EUROPE 
239 DATA INDUS,2,PAKISTAN 

290 DATA IONA,7,BRITAIN 

291 DATA IONIAN,9,"" 

292 DATA INDIAN,8,"" 

233 DATA ISCHIA,5,ITALY 

294 DATA ITALY,1,EUROPE 

295 DATA JAPAN,1,ASIA 

296 DATA JAMESTOWN,5,THE UNITED STATES 

297 DATA JERICHO,5 , JORDAN 

293 DATA JORDAN,2,PALEST INE 

293 DATA JAMICA,7,THE CARRIBEAN 

300 DATA JOS,5,NIGERIA 

301 DATA JERUSALEM,5,ISRAEL 

302 DATA JACKSON,5,THE UNITED STATES 

303 DATA JOMBANG,5,INDONESIA 

304 DATA JOINVILLE,5,BRAZIL 

305 DATA JIMMAN,5,ETHIOPIA 

306 DATA KARACHI,5,PAKISTAN 

307 DATA KEFLAVIK,5,ICELAND 
303 DATA KAZUMBA,5,ZAIRE 

309 DATA KIRKBY,5,ENGLAND 

310 DATA KENYA,1,AFRICA 

311 DATA KOM,2,CAMEROON 

312 DATA KYOTO,5,JAPAN 

313 DATA KUWAIT,1,THE MIDDLE EAST 

314 DATA KRISHNA,2,INDIA 
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315 DATA KHARTOUM,5,SUDAN 

316 DATA LAUNCESTON,5,ENGLAND 

317 DATA LANCASTER,5,ENGLAND 

318 DATA LIMA,5,PERU 

319 DATA LAMAR,5,THE UNITED STATES 

320 DATA LOS ANGELES,5,THE UNITED STATES 

321 DATA LOTUKE,3,SUDAN 

322 DATA LUCKNOW,5,INDIA 

323 DATA LUANDA,5,ANGOLA 

324 DATA LANGON,5,FRANCE 

325 DATA LUXEMBOURG,1,EUROPE 

326 DATA LUNE,2,ENGLAND 

327 DATA MAFEKING,5,SOUTH AFRICA 

328 DATA MANCHESTER,5,ENGLAND 

329 DATA MART INIQUE,1,CENTRAL AMERICA 

330 DATA MAJORCA,7,THE MEDITERRANEAN 

331 DATA MOBILE,5,THE UNITED STATES 

332 DATA MEKONG,2,AS IA 

333 DATA MONROVIA,5,LIBERIA 

334 DATA MANONO,5,ZAIRE 

335 DATA MOMBASA,5,KENYA 

336 DATA MURMANSK,5,THE USSR 

337 DATA M0SK0W,5,THE USSR 

338 DATA NEWFOUNDLAND,7,CANADA 

339 DATA NEWPORT,5,ENGLAND 

340 DATA NETO,2,ITALY 

341 DATA NIGERIA,1,WEST AFRICA 

342 DATA NYANGA,2,GABON 

343 DATA NEW ZEALAND,1,AUSTRALASIA 

344 DATA NALUT,5,LIBYA 

345 DATA NAIRN,5,SCOTLAND 

346 DATA N0RTH,9, ,,H 

347 DATA NORTHAMPTON,5,ENGLAND 

348 DATA NICOSIA,5,CYPRUS 

349 DATA OSAKA , 5 , JAPAN 

350 DATA ORMSKIRK,5,ENGLAND 

351 DATA OVIEDO,5,SPAIN 

352 DATA OTTER,2,ENGLAND 

353 DATA ORONSAY,7,SCOTLAND 

354 DATA OFFENBACH,5,WEST GERMANY 

355 DATA OH 10,2,THE UNITED STATES 

356 DATA OSLO,5,NORWAY 

357 DATA ORRIN,2,SCOTLAND 

358 DATA OLDHAM,5,ENGLAND 
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359 DATA PEKING,5,CHINA 

360 DATA PANAMA,1,CENTRAL AMERICA 

361 DATA PARAGUAY,1,SOUTH AMERICA 

362 DATA POOLE,5,ENGLAND 

363 DATA PORTLAND,5,THE UNITED STATES 
3G4 DATA PORTSMOUTH,5,ENGLAND 

365 DATA POPOCATEPETL,3,MEXICO 

366 DATA PHILLEPINES,1,AS IA 

367 DATA PORTUGAL,1,EUROPE 

368 DATA PUTAO,5,BURMA 

369 DATA PUNJAB,10,INDIA 

370 DATA QATAR,1,THE MIDDLE EAST 

371 DATA QATIF,5,SAUDI ARABIA 

372 DATA QUEBEC,5,CANADA 

373 DATA QUITO,5,ECUADOR 

374 DATA QUIMPER,5,FRANCE 

375 DATA QQM,5,IRAN 

376 DATA RED,9,"" 

377 DATA RESOLUTI ON,7,THE PACIFIC 

378 DATA RAGLAN,5,WALES 

379 DATA RYDE,5,ENGLAND 

330 DATA RUHR,10,WEST GERMANY 

381 DATA ROTHERHAM,5,ENGLAND 

382 DATA RAZAN,5,IRAN 
333 DATA RAMA,5,NICARAGUA 
384 DATA RIOSUCI0,5,COLOMBIA 

335 DATA RUTENG,5,INDONESIA 

336 DATA ROYSTON,5,ENGLAND 

387 DATA RAPID CITY,5,THE UNITED STATES 

388 DATA ST HELENA,7,THE ATLANTIC 

389 DATA ST HELENS,5,ENGLAND 

390 DATA SANTIAGO,5,CHILE 

391 DATA SPAIN,1,EUROPE 

392 DATA SALON,5,FRANCE 

393 DATA SAPRI,5,ITALY 

394 DATA SKOPJE,5,YUGOSLAV IA 

395 DATA SLEDMERE,5,ENGLAND 

396 DATA SEVASTOPOL,5,THE USSR 

397 DATA SWITZERLAND,1,EUROPE 

398 DATA SOMERSET,10,ENGLAND 

399 DATA SPANDAU,5,WEST GERMANY 

400 DATA STORD,7,NORWAY 

401 DATA SWANSEA,5,WALES 

402 DATA SUTTON,5,ENGLAND 
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403 DATA SWEDEN,1,EUROPE 

404 DATA SPA,5,BELGIUM 

405 DATA SUEZ,5,EGYPT 

406 DATA SULTANABAD,5,IRAN 

407 DATA TURKEY,1,EUROPE 
403 DATA TAMPERE,5,FINLAND 

409 DATA TAY,2,SCOTLAND 

410 DATA TASHKENT,5,THE USSR 

411 DATA TEIGNMOUTH,5,ENGLAND 
413 DATA THAILAND,1,ASIA 

413 DATA THAMES,3,ENGLAND 

414 DATA TAIWAN,1,ASIA 

415 DATA TONBRIDGE,5,ENGLAND 
4 16 DATA TOLEDO,5,SPAIN 

417 DATA TOWYN,5,WALES 
4 IS DATA TULI,5,ZIMBABWE 
419 DATA TSU,5,JAPAN 

430 DATA TRIPOLI,5,LIBYA 

431 DATA TOULON,5,FRANCE 
433 DATA ULLAPOOL,5,SCOTLAND 

433 DATA UDAIPUR,5,INDIA 

434 DATA USACK,5,TURKEY 

435 DATA JLM,5,WEST GERMANY 

436 DATA IJTTOXETER , 5 ,ENGLAND 

437 DATA UYUNI,5,BOLIV IA 
433 DATA IJYO ,5,NIGERIA 

439 DATA VENEZUELA,1,SOUTH AMERICA 

430 DATA VAAL,3,SOUTH AFRICA 

431 DATA VERSAILLES,5,FRANCE 
433 DATA VIGO,5,SPAIN 

433 DATA V ICTORIA,10,AUSTRAL IA 

434 DATA VOLTA,3,GHANA 

435 DATA VOUGA,3,PORTUGAL 

436 DATA WAAL,2,HOLLAND 

437 DATA WEST GERMANY,1,EUROPE 

438 DATA WOLVERHAMPTON,5,ENGLAND 
433 DATA WYE,2,ENGLAND 

440 DATA WHITCHURCH,5,ENGLAND 

441 DATA WAREHAM,5,ENGLAND 

442 DATA WEMBLEY,5,ENGLAND 

443 DATA WUHAN,5,CHINA 

444 DATA WILDSPITZE,3,AUSTRIA 

445 DATA WHAKATANE,5,NEW ZEALAND 

446 DATA WILSON,3,THE UNITED STATES 
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447 

DATA 

XIAMEN,5,CHINA 

448 

DATA 

XAI XAI,5,MOZAMBIQUE 

449 

DATA 

XINGU,2,BRAZIL 

450 

DATA 

XINX IANG,5,CHINA 

451 

DATA 

XAU,4,BOTSWANA 

452 

DATA 

YORK,5,ENGLAND 

453 

DATA 

YUCATAN,10,MEXICO 

454 

DATA 

YUGOSLAVIA,1,EUROPE 

455 

DATA 

YOKOHAMA,5,JAPAN 

456 

DATA 

YVETOT,5,FRANCE 

457 

DATA 

YEO,2,ENGLAND 

458 

DATA 

YELLOWKNIFE,5,CANADA 

459 

DATA 

ZIMBABWE,1,AFRICA 

460 

DATA 

ZWOLLE,5,HOLLAND 

46 1 

DATA 

ZONGO,5,ZAIRE 

462 

DATA 

ZAIRE,1,AFRICA 

463 

DATA 

Z APALA,5,ARGENTINA 

464 

DATA 

ZHOB,2,PAKISTAN 

465 

DATA 

ZAHLE,5,LEBANON 

999 

DATA 

ZZZ ,0 ,Z2Z 

1000 REM 

START OF GAME 


1002 PRINT-'SHiFRESS ANY KEY TO START" 

1003 GETA$:IFA$=""THEN1003 
1005 G*<N>= (N:> =0 i K$<N> = " " 

10 10 POKEUG,UF:POKEUB,U5:PR INTUU*; 

1020 PRINT"J+ + + + + + + + + + + + + + + + ENDINGS + + + + + 
++++++++++++" 

1030 PRINTUR*;"aSBDO YOU WANT TO GO FIRS 
T (Y/N)?" 

1040 GETA$:IFA$=""THEN1040 
1045 P$=" " 

1050 IFA$="N"THEN2000 
1060 IFA$="Y"THEN3000 
1070 GOTO 1040 
2000 REM COMPUTER GO 
2010 L5=0:B*=RIGHT$<P*,1> 

2020 IFB$=""THEN2100 
2025 IFRND< 1 > > .9THEN220O 
2030 Q=INT<RND<1>*N> 

2035 W=0 

2040 JFL£>B*THENG=INT<Q*RND< 1 .> ) 

2041 IFL$< B^THENQ“INT < Q/RND<i)> 

2042 IFG >NTHENQ=I NT< RND<1>*N> 

20.44 L3r=LEFT*<G*<Q > , 1 > : I FL$=B$ANDX <G > < > 1 
THENP*=G*<Q> s GOTO2500 
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£050 W=W+1:IFW>100THEN2200 

£060 GOTOS040 

£100 REM FIRST GO 

£105 IFRND <1>>.S5THEN££08 

£110 Q=INT<RND<1>*N> 

£ 1 £0 IF X < Q > = 1 THEN£ 1 10 
£ 1£5 P$ = G$<Q> 

£130 GOTO£500 

££00 REM COMPUTER MAKES ONE UP! 

££10 IFB$=" "THENB *=-CHR$< I NT (RND < 1 >*26) +6 
5) 

£££0 Q =INT < RND <1> *N> 

£££5 L$=LEFT$(G$(Q>,1) 

££30 IFL$=B*THENP$=LEFT*<G$(Q),1NT<RND<1 
>*3+1>>:GOTO££40 
££35 GOTO££20 

££40 0=1 NT < RNO 1 >*N> : R = I NT < LEN < G$ < Q > )/£ > 
££45 P$=P*+MID$(G<r<Q:> ,R, I NT < RND C 1 >*R + 1 > > 
££50 Q =INT < RND < 1>*N> 

££55 P*=P*+RIGHT$<G*<Q>,INT<RND<1>*3+1>> 

££60 L5=l:GOTO£500 

£500 REM COMPUTER PRINTOUT NAME 

£510 PRINTU7*; "H M P* 

£5£0 GETA*: IFA*= M,, THEN£5£0 
£530 A=ASC<A$> 

£540 IFA=13THEN£800 
£550 IFA = 4£THEN£700 
£560 GOTO£5£0 

2700 REM COMPUTER CHALLENGED! 

£705 PRINTU5$;"HrOU DARE TO CHALLENGE ME 
! " 

£710 FORJ = 1TO500:NEXTJ 
£7£6 IFL5=1THENS750 

£730 PRINTU7*;"HYOU ARE WRONG. MY NAME I 
S " 

£735 PRINTU7$;C$(C(G> >; '';K*<Q> 

£740 PR I NT "£1IF YOU DON'T BELIEVE ME, LOO 
K IT UP!" 

£74£ Ml=M1+1 

£745 PRINTUR^;"HTHE SCORE IS NOW"Ml"TO M 
E AND"MS"TO YOU." 

2746 X<Q>=1:P$= u " 

£747 PR I NT "29YOU START NEXT. GOTO300 

0 
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2750 PRINTU7*;"HI OWN UP. YOU ARE RIGHT. 

I MADE IT UP!" 

2752 M2 =M2 + 1s P$ = "" 

2755 PRINTUR$;"fflTHE SCORE IS NOW"Ml"TO M 
E AND"M2"TO YOU." 

2757 PRINT'S'LL START AGAIN....":GOTO20 
00 

2800 REM COMPUTER'S GO ACCEPTED 
2810 X <Q) = 1s GOTO3000 
3000 PRINTU9$;"M "r 
3010 INPUTQ$ 

3020 IFP$=""THEN3100 
3030 B$=RIGHT$(P$,1> 

3040 IF6$=LEFT$(Q$,1)THEN3100 
3060 PR INT"HILLEGAL ENTRY. WRONG INITIAL 
LETTER" 

3070 GOTO3000 

3100 REM CHECKED AND OK 

3120 FORJ =0TON 

3130 IFG*<J)=Q$ANDX<J >=1THEN3150 
3135 IFG$<J)=Q$THENX <J > = 1:GOTO3300 
3140 NEXTJ!GOTO3200 

3150 PRINTUR$* "ir-JOT ACCEPTABLE. IT'S BEE 
N USED BEFORE. " 

3160 GOTO3000 

3200 REM DOES THE COMPUTER CHALLENGE? 
3210 IFRND< 1 > > .8THEN3230 
3220 GOTO3300 

3230 PRINTUU*;"^CHALLENGE!" 

3240 PRINTUU$;"I DON'T BELIEVE YOU." 

3245 PRINTUR*;"1MOW YOU WILL HAVE TO BE 
HONEST WITH ME." 

3250 PRINTUR$;"BECAUSE IT IS NOT IN MY D 
ATA BANK." 

3260 PRINTU7$;"gJIS IT A REAL PLACE? <Y/N 

> 

3265 GETA$:IFA*=""THEN3265 
3270 IFA$="Y"THEN3500 
3275 IFA$="N"THEN3600 
3280 G0T03265 

3300 P$ = Q$:G3&(N)=P*:K3KN> = "0R SOMETHING. 
I 'VE NO IDEA. " 

3310 K$<N)=K$<N)+" BUT YOU USED IT SO IT 
MUST EXIST!" 
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3320 C<N)=0:X<N>=1:N=N+1 
3330 GOTO2000 

3500 PRINTU7$; "SOK. I BOUI TO YOUR GREATE 
R KNOWLEDGE!" 

3510 M2 = M2 + 1 

3520 PRINTUR*; "STTHE SCORE IS NOW "Ml "TO M 
E AND"M2"TO YOU." 

3525 P*= »" 

3530 PR I NT" QI ' LL START NOW." : GOTO20 

00 

3535 P$=Q$:G$<N)=P$:K$<N>="OR SOMETHING. 
I'VE NO IDEA. " 

3540 K$<N)=K$<N)+" BUT YOU USED IT SO IT 
MUST EXIST!" 

3550 C<N)=0:X<N)=1:N=N+1 
3560 GOTO2000 

3600 PR I NT"SJYQU ARE VERY HONEST. THANKYO 
U. " 

3610 M1=M1+1 

3620 PRINTUR^; "iTTHE SCORE IS NOW"Ml "TO M 
E AND"M2"TO YOU." 

3630 P3>=" " 

3640 PRINT"HYOU START NEXT.":GOTO300 

0 

7000 REM ***************************** 
7002 REM COLOUR CODES FOR COMMODORE 64. 
7005 REM (ONLY USE THESE COLOURS) 

7010 U0=0!U0*="H"5REM BLACK 

7020 Ul=l:U1*="3":REM WHITE 

7030 U2=2 ; U2fc = "3" : REM DARK RED 

7040 U3=5:U3$="U" :REM GREEN 

7050 U4=6:U4*="a":REM DARK BLUE 

7060 U5=8:U5$ ="":REM ORANGE 

7070 U6=9 :U6$="i5" : REM BROWN 

7080 U7= 10 : U7$= "fij" : REM PINK 

7030 US=13 s U8$=" H" :REM LIGHT GREEN 

7100 U9=14:U9$="U":REM LIGHT BLUE 

7110 UU=4:UU*="^":REM PURPLE 

7180 UR=12!UR*="a" sREM LIGHT GREY 

7 130 UE=7:UE$="Q"s REM LIGHT YELLOW 

7140 UF-11:UFT="gT :REM DARK GREY 

7800 REM SCREEN 'POKE' CODES FOR 64. 

7310 US=1024:REM SCREEN POKE CHARACTER 
7220 UC=55296:REM SCREEN POKE COLOUR 
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7230 UG =53281s REM BACKGROUND COLOUR 
7240 UB=53280:REM SCREEN BORDER COLOUR 
7300 REM SOUND 'POKE' CODES FOR 64. 

7310 UV=54296:REM VOLUME FOR 3 VOICES 
7320 UA=54277 '• REM ATTACK FOR VOICE 1 
7330 UD =54278 s REM SUSTAIN FOR VOICE 1 
7340 UH=54273:REM HIGH BYTE FOR VOICE 1 
7350 UL=54272 '• REM LOW BYTE FOR VOICE 1 
7360 UW=54276:REM WAVEFORM FOR VOICE 1 
7400 RETURN 

7500 REM *****>!<:* ********************** 
3999 END 
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You probably never realised that you needed this program, and may 
well continue to reside in ignorance until you key it in and give it a whirl. 
Let’s say you want to remind yourself what day of the week you were 
born on or whether the battle of El Alamein was on a Friday or 
Saturday, well this is the program for you. Whatever the year and 
month, the screen will throw up the appropriate calendar in an easy-to- 
read fashion. Who says that computers can’t be useful around the 
home? 

5 REM OMNICALENDAR. ..... .WALLIYN 
10 GOSUB7000 
£0 DIM M$<12 >,M<12) 

30 FORJ =1TO 12iREADME < J),M<J>:NEXTJ 

35 DATA JANUARY,3 1 ^.FEBRUARY ,28 ,MARCH ,3 1 

36 DATA APRIL,30,MAY,31,JUNE,30 

37 DATA JULY,31,AUGUST,31,SEPTEMBER,30 

38 DATA OCTOBER,31,NOVEMBER,30,DECEMBER, 

31 

40 Y1=1983:D1=6 

42 REM Y1 IS THE ’BASE YEAR' 

44 REM D1 IS THE DAY NUMBER <6..SATURDAY 
) FOR JAN. 1ST IN BASE YEAR 
50 S Y<S= " 


55 SX$= 

tumui" 

100 POKEUB ,U7:P0KEUG,UR:PRINTU4$; "J 
OMNICALENDAR" 

110 PRINT" - 

_II 

115 PRINTU2* 

120 INPUT-YEAR REQUIRED <1800-2000>”;Y$ 
130 IFLEN<Y$X40RLEN<Y*> >4THEN100 
140 Y=VAL<Y$>:IFY<1900ORY>2000THEN100 
150 PR INTUF$ 

160 FORJ =1 TO 1£!PR INTJ * TAB(6)M$< J):NEXTJ 
170 PRINT 

180 INPUT“MONTH NUMBER"* M$ 

185 IFLEN<MSO >20RLEN<M4O <1THEN180 
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190 M=VAL<M$):IFM>120RM<1THEN130 

195 PRINTU4*;"H&OK, PLEASE WAIT WHILE I 

CALCULATE THE" 

197 PRINTU4$;"MONTHLY CALENDAR FOR "M$<M 

>; Y 

200 REM CALCULATE AND DRAW CALENDAR 

210 D=D1sIFY<Y1THEN250 

220 IFY >Y1THEN300 

230 IFY=Y1THEN350 

250 REM GOING BACK.... 

255 FOR J =Y1-1TOYSTEP-1 
260 D=D-1 

270 IF INT< J/4)=J/4THEND=D- 1 
280 IFD <1THEND =D +7 
290 NEXTJ:GOTO400 

300 REM GOING FORWARD. 

305 FORJ = Y1TOY-1 
310 D=D+1 

320 IF INT<J/4)=J/4THEND=D+1 
330 IFD>7THEND=D-7 
340 NEXTJ:GOTO400 

350 REM THIS YEAR. 

360 D=D1s GOTO400 

400 FORJ=lTOM:IFJ=MTHEN440 

410 D =D +M< J)-28 

420 IFJ =2AND INT < Y/4 > =Y/'4THEND = D +1 
430 IFD >7THEND=D-7 
440 NEXTJ 

500 REM PRINT OUT CALENDAR 
5 10 POKEUB ,U6 : POKEUG ,UF : PR INTUR* ,, J" ; 

520 PRINT" CALENDAR FOR "MSKMXY 

530 PRINT 

532 IFY/4=INT <Y/4)ANDM=2THENM<M)=29 

533 IFD+MCM)=29THENN5=4 s GOTO540 

534 IFD+M(MX37THENN5=5 :GOTO540 

535 N5=6 

540 PRINTU3*; " MON I TUE B WED I THU | F 

RI |"; 

545 PRINTU7*;” SAT | SUN I" 

550 PRINT 

555 FORJ =1TONS s FORK =1T02 

560 PRINTU3$;" S I I I I 

I"; 

565 PRINTU7$; n I I" : NEXTK 
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566 PR I NTU3$.7 11 sfl 1 _I_I_L_ 

567 PRINTU7$; U _I_I" 

570 NEXTJ 

580 PRINTUR^;" PRESS ANY KEY FOR ANOTH 
ER CALENDARS" 

600 REM PRINT OUT DAY NUMBERS 

610 N=0 s NN=0:FORJ =1T0N5:FORK =1T07! IFK =DT 

HENN=1 

620 IFN=0THEN680 

630 NN=NN+1:IFNN>M(M)THEN680 

640 PRINTU3$;:IFK>5THENPRINTU7*; 

645 X2=4:IFNN>9THENX2=3 

650 PRINTLEFT$(SY$,J*3+3>;LEFT$(SX$,(K-l 
)*5+X2>; 

660 PR INT"a"NN 
6S0 NEXTK,J 

700 GETA*: IFA$< >""THEN700 
710 GETA$:IFA$=""THEN710 
720 RUN 

7000 REM ***************************** 
7002 REM COLOUR CODES FOR COMMODORE 64. 
7005 REM (ONLY USE THESE COLOURS) 

70 10 U0 =0:U0$="i": REM BLACK 

7020 Ul = l:U1$="S" sREM WHITE 

7030 U2=2:U2$="3"'REM DARK RED 

7040 U3=5:U3$= ,, SI" :REM GREEN 

7050 U4 = 6 s U4$=" {JT : REM DARK BLUE 

7060 U5=8!U5$ =""s REM ORANGE 

7070 U6 =9 s U6$="R" :REM BROWN 

7080 U7=10:U7$=:REM PINK 

7090 US=13:U8$= "i" !REM LIGHT GREEN 

7100 U9=14:U9$ ="U" •REM LIGHT BLUE 

7110 UU=4 s UU$= "^i" s REM PURPLE 

7120 UR =12:UR$="y":REM LIGHT GREY 

7130 UE=7:UE$='W :REM LIGHT YELLOW 

7140 UF = 1 1 i UF$= "gj" : REM DARK GREY 

7200 REM SCREEN 'POKE' CODES FOR 64. 

7210 US=1024:REM SCREEN POKE CHARACTER 
7220 UC=55296:REM SCREEN POKE COLOUR 
7230 UG=53281:REM BACKGROUND COLOUR 
7240 UB=53280:REM SCREEN BORDER COLOUR 
7400 RETURN 

7500 REM ***************************** 
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This is an up-market real-time lander program which gives you an 
opportunity to grapple with the problems which face a space-lagged 
cruiser commander returning home after a long haul. The object to the 
exercise is to land your craft on the chillingly small landing-pad at the 
bottom of the screen. Precision is the name of the game, because if your 
rate of descent is greater than -5 you and your crew are gonners. A word 
of warning: if you over-fire your rockets you’ll disappear into 
hyperspace until returning back on screen, plummeting to your doom 
unless you’ve been doing some nifty blind flying to slow your descent. 

10 REM ***MOON-LANDER BY ROBERT ERSKINE 

11 REM TIDIED,CORRECTED AND CONVERTED 

12 REM ***BY PAUL ROPER*** 

13 REM 

15 GOTO 10000 

16 DEF FNR < X > = INT < X *RND( 1 > + 1 ) 

17 DEF FNP <Q3 > = 1024+CL+ <23-INT(H/87>> *40 
13 DEF FNC CQ3> = 1024 +C1 + (23- INT(HI/87>)*4 
0 

19 E < 1 ) =253:E<2)=252:ECS>=251:E<0>=252 

20 GOSUB8000 
80 GOSUB9000 

85 DE(0>=249:DE<1>=250 

90 IF F<=0THENPRINT ,, aHHHH^UT OF FUEL. 1 ' 

s F =0:E =0:P0KE54296 , 0 

95 IFE =0 THEN150 

100 M=M1:Ml=M-F1 

105 L=L+1 

1 10 H 1 =H:H = < H +V >-.31 

120 V = V +(< T/F1> *LOG <(M/Ml>>>-1.62 

130 F=F-F1 

140 GOTO 175 

150 Ml=M 

160 H1=H:H=(H+V>-.81 
170 V =V-1.62 
175 C1=CL 

130 IF CL >0 AND RND(1> >.95THEN CL=CL-1 
185 IF CL<33 AND RND<1>>.95THEN CL=CL+1 
190 PR I NT" gj^ElHE IGHT QBSSiSIBIS 

0|: " J I NT < H > 
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200 PR I NT "VELOCITY = 

"; INT < V > 

2 10 PRINT"^UEL !■■■■■■■■■!: 

" ;f 

220 GETA$ 

225 I FA$="Q"THEN E = 1 :P0KE54296,15 
230 IFA$ ="A"THEN E = 0:POKE54296,0 
232 IFA$="+"ANDCL>0THENCL=CL-1 
234 IFA*="-"ANDCL<39THENCL=CL+1 

240 IF H >2000 OR H<1 THEN 270 

241 03=1 

245 IFINTCFNCC0)) = I NT<FNP<0>>THEN260 
250 POKEFNC <0 > ,32 : POKEFNC: <0 ) +40,32 : F’OKEF 
NP(0) , 2G55 

260 IFE=1THENP0KEFNP(0)+40,E <LAND3) 

270 PR 1 NT 11 

iM —i i M —ar a" 

271 IF H >2000 AND 0S=1 THEN OS=0:POKEFNC 
(0),32:POKEFNC(0)+40,32 

300 IF H< =0 THEN 20 10 
310 GOTO90 

20 10 IFH < =0 AND V> = -5 THENPR I NT" 

YOU HAVE LANDED" 

2020 I FH < =0 AND V<-5 THEN PR I NT" gmSMSMS 
YOU HAVE CRASHED":GOTO3000 

2025 IF H< =0 AND V> = -5 AND CL=15 THENPRI 
NT"SIN THE CORRECT PLACEGOTO2030 

2026 IF H< =0 AND V> = -5 THEN PRINT"SIN T 
HE WRONG PLACE" 

2030 PR I NT" gJDESCENT TIME "TI/60 " SECOND 
S . 11 

2035 PRINT SPACE 

TO TRY AGAIN" 

2037 P0KE54236,0 

2040 GETA$:IFA$<>" "THEN2040 

2050 GOTOS0 

3000 REM EXPLOSION 

3001 SC=54272 

3G05 PGKESC+24,0 s POKESC + 4,128 
3010 POKESC+5,79:POKESC+6,00:POKESC,20:P 
OKESC+1,20:POKESC+24,15:POKESC+4,129 
3020 FORA=1TO100!IFFNC<0><2024THENPOKEFN 
C<0>,DE <AAND1> s NEXTiGOTO2030 
3025 NEXT 
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3050 GOTO2030 

S000 PR INT"J BM 0 0 N LAND 

E RM" 

8010 PRINT"MTHIS IS AN UPMARKET REAL-TIM 
E LANDER" 

8020 PR INT"PROGRAM WHICH GIVES YOU AN OP 
PORTUNITY" 

8030 PR I NT 11 TO GRAPPLE WITH THE PROBLEMS 
L-vJH I CH " 

8040 PR INT"FACE A SPACE-LAGGED CRIUSER C 
OMMANDER" 

8050 PR INT"RETURNING HOME AFTER A LONG H 
AUL. " 

8060 PR INT"THE OBJECT OF THE THE EXERCIS 
E IS TO" 

8070 PR INT"LAND YOUR CRAFT ON THE CHILLI 
NGLY SMALL" 

8080 PR INT"PAD AT THE BOTTOM OF THE SCRE 
EN. " 

8090 PR INT"PRECIS ION IS THE NAME OF THE 
GAME,AS IF" 

8081 PRINT"YOU HIT THE PAD AT OVER -5,TH 
EN YOU AND" 

8092 PR INT"YOUR CREW ARE GONNERS <!!>." 

8093 PR INT"A WORD OF WARNING:" 

8100 PRINT"IF YOU OVER-FIRE YOUR ROCKETS 
YOU'LL GO" 

8110 PRINT"INTO SPACE - TRICKY TO CONTRO 
L WHEN YOU" 

8 120 PR INT"CAN'T SEE YOUR PLUMMETING SHI 
P . " 

8130 PRINT"gpgffFRESS SPACE TO CONTINUE" 

8 140 GETA$: IFA$< >" "THEN3140 

S 150 PR I NT " LJJSE THE FOLLOWING COMMAND KE 
YS: -HH" 

8160 PRINT" '+' - MOVE LEFT 

8170 PRINT" - MOVE RIGHT 

SI 80 PRINT" 'Q' - FIRE ENGINES 

8190 PRINT" 'A' - STOP ENGINES 

8200 PR INT"0REMEMBER YOU HAVE A LIMITED 
AMOUNT OF" 

8210 PRINT"FUEL.PRESS SPACE TO START DES 
CENT " 

8220 GETA$: IFA$< >" "THEN8220 
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8230 

RETURN 


9000 

H =2000 


3010 

V = -20 


9020 

M=1378 s Ml=M 


3030 

T=4000 


9040 

ai 

ii 

I L 


3050 

F =200 


9060 

E =0 


3080 

CL =20 


9090 

Y=8 


3100 

REM SOUND HERE 


91 10 

SC =54272:FORA=0TO24:POKEA+SC 

,0:NEXT 

9120 

POKESC+5,9:POKESC+6,240:POKESC,10:P 

OKESC + 1,10:POKESC + 4,129 


9200 

PRINT "L3" 


9205 

FORA =55296TO56295:POKEA,1:NEXT 

9210 

FORX=1T024!PR INTTAB(FNR <36)) 

"I.B" i N 

EXT 

9220 

TI$="000000":RETURN 



10000 REM UDGS DONE HERE 

10001 PRINT-LISHHMM OQN BLANDER 

m®m " 

10002 PR INT"PLEASE WAIT WHILE YOUR SHIP 
IS BUILT." 

10010 POKE52, 48 :POKE56,48 :CLR 
10020 P0KE56334,PEEK(56334)AND254 
10030 POKEl,PEEK(1>AND251 

10040 FORI=0TO2048 !POKE I +12288,PEEK(1+53 
248)s NEXT 

10050 POKEl,PEEK <1>0R4:P0KE56334,PEEK<56 
334 )OR 1 

100S0 DATA 255,60,34,135,66,60,36,66,231 
10065 P0KE53272,(PEEK(53272>AND240)+12 
10070 DATA 254,255,255,126,60,24,60,66,2 
31 

10080 DATA253,36,24,0,0,0,0,0,0 

10081 DATA250,2,2,18,3,146,38,73,140 

10082 DATA243,18,8,136,36,36,97,137,138 
10030 DATA252,66,66,36,36,24,0,0,0 
10100 DATA251,123,123,129,66,66,36,36,24 
10110 DATA - 1 

10120 READL-: IFL = -1THENRUN16 

10 130 FORA =0TO7:READCD:POKE12288+L*8+A,C 

D:NEXT:GOTO 10 120 
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The alien ship passes overhead, razing the ground below with its power 
beam, and dropping swarms of deadly Yeepods. Moving swiftly across 
your territory you fire your missiles as long as the power holds out. 

When a recharge is necessary, your base changes shape, and you must 
ride out the dangers undefended. As an added difficulty, you can choose 
to have an invisible alien, only identifiable when it fires, and providing 
minimal guidance for your missile positioning. 


I REM ********** ALIEN ********** 

£ REM * WRITTEN FOR ZX SPECTRUM * 

3 REM * BY P.STANLEY- CONVERTED * 

4 REM * TO COMMODORE 64 BY GEOFF* 

5 REM * AMABILINO. USER DEFINED * 

6 REM * GRAPHIC CHARACTERS ARE * 

7 REM * # $ X & ' < ) * + * 

8 REM * TO RESTORE NORMAL SCREEN* 

S REM * FROM DIRECT MODE TYPE * 

10 REM* 'GOSUB5100 ' * 

II REM*************************** 

12 P0KE5£,64:P0KE56,64:CLR:GOSUB7000:PR I 
NT n U"; s POKES4236,15 

15 X=0:Y=0:Z=£0:HS=0:S=0:SW=40:C=0:AS=16 
504:CM=55416:BA=37 

35 GOSUB7500:P0KE54278,1£8:P0KE54277,240 
:P0KE54276,0:P0KE54276,129 
37 P0KE54273,4 '• P0KE54272,73 
40 GOSUB300:IFC=3GOTO1000 
45 IFBMG0T065 

50 IFRm (0 ) > . 97THENGOSUB400 
60 IFRND < 0)<.08THENGOSUB600 
65 IFBH=1GOTO1000 
70 DZ =0:K=PEEK <KB > 

80 IFK=£510RK = 12THENDZ = -1 
90 IFK =2470RK =£3THENDZ = 1 

100 IFF1=0AND <K=£39ORK=60)THENGOSUB900:G 
OTO40 

120 POKE 17264 +Z,32 
125 Z =Z +DZ! IFZ <1THENZ = 1 
130 IFZ >33THENZ=39 
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140 P0KE17264+Z ,BA:P0KE56176+Z,8 
150 IFF1=0GQTO40 
155 PQKEAS+L,32 

160 L=L“SUJ+DZ s IFL<0THENF 1=0: GOTO50 : REM M 
ISSILE AT TOP OF SCREEN 

170 IFL=QSORL=OS+1THENGOSUB700:REM ALIEN 
HIT 

130 POKEAS +L , 4 1:POKECM+L,1:GOTO40 

299 REM ** MOVE ALIEN SHIP ** 

300 POKEAS +OS,32 

310 X = X + 1: IFX = 39THENX = 0:POKEAS +OS +1,32:Y 
=Y+1: IFY=16THENY=0:C =C +1: IFC=3THENRETURN 
320 OS = SLi*Y + X 

330 POKEAS+OS,L1:POKEAS+OS+1,L2:P0KECM+0 
S,4:POKECM+OS+1,4 
340 IFBM=0THENRETURN 

349 REM ** MOVE BOMBS ** 

350 FORA= 1 TO 4 : PQKEBS-A ,32 : NEXT: IFBSM726 
4THENBM=0:BA =37:RETURN 

360 BS=BS+40:BC=BC+40:FORA=1T04 

365 IFBS>17264THENIFPEEK CBS-A)=BATHENBH = 

1:A=4:GOTO390 

370 POKEBS-A,40:PQKEBC-A,5 
390 NEXTA:RETURN 

399 REM ** SET UP ALIEN BOMBS ** 

400 BM= 1 : BS = AS+0S+SLl+3 : BC=CM+0S + SW+3 : BA = 
39:FORA=1T04:POKEBS-A,40:POKEBC-A,5:NEXT 

410 RETURN 

599 REM ** ALIEN LASER BLAST ** 

600 P0KE54279,172:POKE54280,57iP0KE54284 
,0:P0KE54285,249:P0KE54283,33 

640 LP=AS+OS:LC=CM+OS:FORY1=YTO18:LP=LP+ 
SUJ: LC=LC+SLI 

645 IFY1=18ANDX=ZTHENY1*20:NEXTY1:BH=1:G 

OTO660:REM HIT BASE 

650 POKELP , 106:POKELC,1:NEXTY1 

660 LP =AS + OS : FORY 1 =YTO 18 : LP =LP +SL1: POKELP 

,32:NEXTY1 

670 P0KE54283,32:P0KE54283,0:P0KE54285,0 
:P0KE54284,0:RETURN 

699 REM ** ALIEN SHIP HIT! ** 

700 POKEAS+L,38:F1=0:S=S+20-Y: IFS >HSTHEN 
HS=S 

710 G0SUB7510:B1=2:B2=6:HI=5:L0=75:GOSUB 
2000:RETURN 
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899 REM ** SET UP YOUR MISSILE ** 

900 IFBA=39THENRETURN 

910 L=17264+Z-40-AS:POKEAS+L,41:POKECM+L 
,1s F1 = 1sRETURN 

999 REM ** ITS THE END OF YOUR BASE! ** 

1000 P0KE54276,123:P0KE54276,8sP0KE54276 
/•0 s P0KE54277,0 : P0KE54278,0 : 

1010 IF C 3 = 3 TH E NC 3=0 : GOSUB7500 : PRINT "B»J 
ELL DONE!YOU SURVIVED ! ":GOTO 1060 
1050 POKE 17264+Z,42 s POKE17264+Z + l,43:B1= 
1s B2=0 s HI=4:LO=184 

1055 P0KE56176 +Z,1sP0KE56176+Z + 1,1:GOSUB 
2000 

1060 print" mmmffimrnmmmBBmMft nother game? 

ii 

1070 GETQ$:IFQ£=""GOTO1070 
1080 IFQ$= 11 N"THENG0SUB5 100 : END 
1090 IFQ$< >"Y"GOTO 1070 

1100 PRINTA VISIBLE A 
LIEN?" 

1110 GETQ$:IFQ*=""GOTOl110 
1120 IFQ$=“N"THENL1=32 s L2=32 s GOTO 1150 
1130 IFG$< >"Y"GOTO 1110 
1140 L1=35 s L2 = 36 
1150 PR I NT " 

m" !x=0!Y=0:3=0:BA=37:Z =20:C=0:F1=0 
1160 BH =0:G0T035 

1999 REM ** LIGHTS AND SOUND! ** 

2000 P0KE54279,LO s POKES4280, H IsP0KE54284 
,16 s P0KE54285,249 

2010 P0KE54283,129 

2020 FORA=1TO30:POKE53280,B1s P0KE5328 1 ,B 

2 s POKE53280,B2:P0KE53281,B1s NEXT 

2025 FORA=1TO500 s NEXT 

2030 POKE53280,0:P0KE53281 ,0 

2040 P0KE54283,128sP0KE54283,8:P0KE54283 

/0’P0KE54285,0:P0KE54284,0:RETURN 

4999 REM ** MOVE CHARS. TO NEW LOCATION 
** 

5000 P0KE56334,PEEK <56334)AND254:POKE 1 ,P 
EEK <1)AND251s REM K/B & I/O OFF 

5010 FORA=0TO127:FORA1=0TO7 

5020 POKE20480+A*8+A1,PEEK<53248+A*8+A1> 

sNEXTAl,A 
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5030 POKE 1,PEEK<1)0R4:P0KE5S334,PEEK <563 
34>OR1:RETURN:REM K/B & I/O ON 

5049 REM ** USER DEFINED CHARS 35-43 ** 

5050 FORA =35T043s BT=0:FORA 1=0TO7:READB 8 B 
T = BT + B 

5055 POKES0480 + <8*A)+A1,B:NEXTA1:READB 
5060 IFB <>BTTHENCH=A:A=132:NEXTA:GOTO600 
0 

5065 NEXTA 

5069 REM ** SWITCH IN USER CHARS. ** 

5070 P0KE648,64:P0KE56576,<PEEK<56576)AN 
D252 )OR£:REM POINT VIC AND SCR EDIT 
5075 P0KE53272,(PEEK <53272 >AND 15):REM PO 
INT VIC AT SCREEN 

5077 P0KE53272,(PEEK <53272)AND240)0R4:RE 
M SET CHAR POINTER TO 20480 
5080 RETURN 

5099 REM ** RESTORE NORMAL CHAR. SET ** 

5 100 P0KE648,4:P0KE56576 r (PEEK<56576)AND 
£52)0R3:P0KE53272,21:PRINT"; 

5110 P0KE54296,0:RETURN 

5999 REM ** USE CHECKSUM TO DEBUG DATA S 
TATEMENTS ** 

6000 PRINT"CHECKSUM ERROR IN CHAR "CH:ST 
OP 

6999 REM ** INSTRUCTIONS AND INITIALISAT 
ION ** 

7000 POKE53280,0 : P0KE5328 1 ,0 : PR INT"jJgEBT 
/ 

7010 PRINT 
7020 PRINT 
f\ 19 

7030 PRINT 

II \ II 

7040 PRINT 

II \ I* 

7050 PRINT 
II \ II 
7060 PRINT 
II \ II 
7070 PRINT 
II \ll 

7080 PRINT 
_ II M_"; 


l\ 

II \ 

II \ 

II \ 

II-\ 

II \ 


II 
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7090 PRINT" 


7100 PRINT"-iMBIHIiaiiL-U30 YOU WANT JO 

YSTICKS <Y/N>B1-" ' 

7110 GETQ*:1FG$=""G0T07110 
71£0 IFQ$= n Y"THENKB=56321:GOTO7180 


7130 IFG$< >"N"G0T07110 

7 1^0 pr i nt■■ wMMmmmtmmmmmmKi -m 

OVEMENT KEYS -" : KB =197 

7150 PRINT" □-.EFT .3 Z ■" 

71S0 PR I NT" H BRIGHT..3 X ■ 


7170 PR I NT" H ©FIRE..fl SPA 

CE ■" 

7180 PRINTS || DO YOU WANT A VISIBLE ALI 
EN? " 

7190 GETQ*:IFQ*=""GOTO7190 
7800 IFQ*="Y"THENL1=35:L8=36 sGOTO7830 
7810 IFQ$< >"N"G0T07190 
7880 L1=38:L£=L1 

7830 PRINT“□ ©OKAY...WAIT! 


7840 GOSUB5000 

7850 PRINT" ©SORRY ABOUT THE WA 

IT! " 

7860 GOSUB5050 


7870 


print "\ 2 msssm 


L'lGl.U ULvLUL'i 


-R E MEMBER-3" 

7880 PRINTTAB(10)"©YOU CAN ONLY FIRE WHE 
N YOUR BASE IS LX3 , NOT WHEN ITS [']!! 


7890 PRINTTAB < 10 >"gPRESS A KEY TO GO!" 
7300 GETQ$:IFQ$=""GOTO7300 
7310 RETURN 

7493 REM ** SET UP SCREEN ** 

7500 PR I NT "fcJBBffiBS t ~ t r t t t 1 i— 1 ~ t~t t i i i i i n i i i~r 


7505 PRINT" 


!UUUUUL<U 


n — - — m" 

7510 PRINT"SDMMM1SC0RE - " ; S; TAB <80 > "H 
IGH SCORE - ";HS:RETURN 

10000 DATA0,0,60,855,834,63,15,3,630 
10010 DATA0,0,60,855,87,858,840,198,1086 
10080 DATAS,8,8,93,119,97,93,0,486 
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10030 DATA 1,68,136,16,160,0,4,84,469 
10040 DATA 189,£55,165,36,60,60,186,855,1 
086 

10050 DATA0,130,198,108,184,56,16,16,648 
10060 DATA8,8,8,8,8,88,0,0,63 
10070 DATA 1,9,5,35,87,69,35,855,436 
10080 DATA 188,136,146,164,800,178,196,85 
5,1403 
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The classic game, played against the computer. But in our version the 
computer can be beaten! 


ft************************ 


BY 


10 REM 

15 REM 

16 REM 

17 REM 
20 REM 
25 REM 
30 REM 
35 REM 
40 REM 

45 GRID=1024+4+8*40sCD=55296 
50 BLANK**" 


NOUGHTS & CROSSES * 

BY MICHAEL BEWS * 

CONVERTED * 

DAVID GRISTWOOD * 

FOR THE * 

COMMODORE 64 * 


************************* 


1024 


55 DEF FN PO <X)=GRID+(INT<(X-1)/3)* 160) + 
(<X-<INT< <X-1)/3>*3> >*4) 

60 FOR T=1 TO 9: G(T)=0: NEXT T 
65 FINISH=0:TURNS=0 

70 CL < 1 > = 1 :CL(2)=9:CL(3)=3 s CL(4 > = 7 
90 GOTO 1600:REM * MAIN PROGRAM * 

100 REM * PRINT SCREEN * 

105 REM 

120 POKE 53281,5:POKE 53280,5 

160 PR I NT "LSI B&JELCOME TO NOUGHTS & 

CROSSES a n 

170 PRINTTAB <11>"^BY DAVID GRISTWOOD" 

180 PR I NT: PR I NT: PR I NT " 3" 

200 Gl$="-1-1-" :G2*=" | |" 

210 FOR T=1 TO 9 STEP 3 
220 : IF T>6 THEN Gl$="" 

230 :FOR U=1 TO 3 
240 : :PR INTTAB <7) G2$ 

260 :NEXT U 

2S0 :PR INT TAB <7) Gl$ 

300 NEXT T 

305 print" nr rrrrim 11 ;tab< 24) 11 sgrou are hx" 

3 10 PRINT ,, H M ;TAB<26) "ggl AM ajo" 

315 PR I NT" gMfSST 
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320 PR I NT! PR I NT s PR I NT TAB < 12 > "BJTHE SCORE 
SO FAR" .’PRINT 
330 PRINT BLANKS 

340 PRINT TAB(5)"CMEsME;"GAMES" 

360 PRINT TAB <23 V'CJYOU: " J YOU; "GAMES " 

370 FOR T=1 TO 9 

330 sC =FN PO <T!> sPOKE C,48 + T:POKEC+CD,2 
390 NEXT T 
395 RETURN 

400 REM * YOU TO GO * 

410 REM 

420 PRINT 11 aMHEKr SPRINT BLANKS 

440 PRINT "rm YOUR TURN TO GO. WHICH SQUA 

RE (1-9) ■?" 

460 FOR T=1 TO 10:GETASsNEXT T 

480 GET ASsIF AS="" THEN 430 

500 VA = VAL < AS): IF VA<1 OR VA>9 THEN 480 

520 IF G < VA> < >0 THEN 430 

540 G < V A > = 1s T=F N PO<VA> 

560 POKE T r 36 s POKE T+CD,0 
530 REM * CHECK FOR WIN * 

620 FOR T=0 TO 2 

640 :IF G(T*3+1)=1 AND G<T*3+2)=1 AND G< 

T*3+3) = 1 THEN FINISH =1 

660 SIF G <1+T) = 1 AND G<4+T) = l AND G<7+T> 
= 1 THEN FINISH =1 
680 NEXT T 

700 IF G<1) = 1 AND G <5) = 1 AND G<9> = 1 THEN 
FINISH =1 

720 IF G(3)=1 AND G<5)=1 AND G<7)=1 THEN 
FINISH =1 

740 IF F INI SH = 1 THEN YOU = 'YOU + 1 : RESULTS= " 
YOU WIN" 

790 RETURN 

800 REM * MY TURN * 

820 PR I NT" SBfTOKM 11 SPRINT BLANKS 
330 PR I NT "□31 MY TURN TO GO." 

840 FOR T=1 TO 700sNEXT T 
850 GOTO 1200 

860 REM * CHECK FOR BLOCK OR WIN * 

370 M0VED=0iL=0 
900 FOR T = 0 TO 2 

310 sIF G(T*3+1)+G<T*3+2)+G(T*3+3)=C THE 
N L =1sGOSUB 970 
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920 :IF G(1+T)+G(4+T)+G<7+T)=C THEN L=2: 
GOSUB 970 
930 NEXT T 

940 IF G<1)+G<5)+G<9)=C THEN L=3:G0SUB 9 
70 

950 IF G<3)+G<5)+G(7)=C THEN L=4:G0SUB 9 
70 

960 RETURN 

970 IF MOVED>0 THEN RETURN 
990 ON L GOTO 1000,1020,1040,1100 
1000 FOR U=T*3+1 TO T*3+3:IF G(U)=0 THEN 
MOVED=U 

1010 NEXT U:RETURN 

1020 FOR U = T +1 TO T+9 STEP 3: IF G(U>=0 T 

HEN MOVED =U 

1030 NEXT U:RETURN 

1040 IF G <1 ) =0 THEN MOVED=1:RETURN 
1060 IF G(9 ) =0 THEN M0VED = 9:RETURN 
1080 M0VED=5sRETURN 

1100 IF G(3)=0 THEN M0VED=3:RETURN 
1120 IF G(7)=0 THEN M0VED=7:RETURN 
1140 M0VED=5:RETURN 
1200 C = -2 s GOSUB 860 s REM * WIN * 

1220 IF MOVED>0 THEN ME=ME+1:RESULTS”I 

WIN"sFINISH=l:GOTO 1450 

1250 C=2 s GOSUB 860:REM * BLOCK * 

1280 IF MOVED>0 THEN 1450 
1290 REM * GET CORNER ? * 

1320 FOR T=1 TO 2 

1330 :IF GCCLCT)>=0 AND G<CL<3-T>>=1 THE 
N MOVED=CL(T) 

1340 s IF G <CL <T+2))=0 AND G<CL<5-T)) = 1 T 
HEN MOVED=CL < T+2) 

1345 NEXT TsIF MOVED>0 THEN 1450 
1350 FOR T=1 TO 4 

1355 s IF G <CL <T))*0 THEN MQVED=CL <T) 

1360 h^XT T 

1370 IF MOVED >0 THEN 1450 
1380 REM * ANY SQUARE * 

1400 FOR T=1 TO 9 

1410 s IF G <T> =0 THEN MOVED = T 

1420 NEXT T 

1450 REM * END MY MOVE * 
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1460 T=FN PO(MOVED):POKE T,87:P0KE T+CD, 
1 

1480 G(MOVED>=-1:RETURN 
1500 REM * END OF GAME * 

1510 PRINT 11 fflaanffla 11 SPRINT BLANKS 

1520 PRINT"03 RESULTS;". PLAY AGAI 

N (Y/N) ?" 

1530 FOR T=1 TO 10:GET ASsNEXT T 

1540 GET ASsIF AS<> n Y" AND AS<>"N" THEN1 

540 

1550 IF AS="Y 11 THEN 20 
1560 PR I NT "iJkTHANK YOU END 
1600 REM ** MAIN PROGRAM ** 

1605 REM 

1610 GOSUB 100 

1650 LIT = I NT ( RND <TI ) *2 + 1 ) 

1660 ON LIT GOSUB 400,800 
1670 IF FINISH=1 THEN 1500 

1680 TURNS=TURNS+1:IF TURNS=9 THEN RESUL 
TS ="A DRAW":GOTO 1500 
1690 WT = 3 -LIT s FOR T= 1 TO 1 : NEXT T 

1700 GOTO 1660 
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This is one for the kids, testing their powers of observation and memory. 
There are ten pictures of various objects displayed on the screen for a 
few seconds. They are then hidden from view. When you choose one of 
the squares the picture is revealed and you must then identify the square 
behind which the corresponding image is hidden. If the two pictures 
chosen do not form a pair, they are once again hidden and no points are 
scored. 


10 

15 

£0 

£1 

££ 

£5 

30 

35 


REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 


********************* 

* PAIRS BY * 

* MICHAEL BEDS * 

* CONVERTED BY * 

* DAVID GRISTWOOD * 

* FOR THE * 

* COMMODORE 64 * 


40 REM ********************* 

45 REM 

50 SCREEN=51£00:CHAR =4915£:UDG=1£8:S =0 
60 TRIES=0:GRID=SCREEN+9*40+6:CD=55£96-S 


CREEN 

70 BLANK$=" 


100 POKE 53£81,1 SPOKE 53£80 , 1 
110 PR I NT " LJ" 

1£0 IF PEEK <£) =£ THEN £50:REM * SKIP THI 
S SECTION IF RE-RUNNING PROGRAM * 

140 POKE 56576,4:REM * SET BANK * 

150 POKE 53£7£, 3£:REM * SCREEN + CHAR SE 
T * 

160 POKE 648,£00:REM * SET BASIC * 

170 PRINT %'JggWa PLEASE WAIT FOR TWO MIN 
UTES" 

180 FOR T=0 TO £047 

190 POKE 56333,1£7:P0KE 1,51:REM * REVEA 
L CHAR SET * 

£00 X = PEEK <53£48+T) 

£10 POKE 1,55:POKE 56333,1£9:REM * RESTO 
RE I /O * 
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£20 POKE 49152+T,X 
£30 NEXT T 
£40 POKE £ ,2 

£50 REM * SCREEN NOW AT 51200-52223 * 

£60 REM * CHAR SET NOW AT 49152-51199 * 
£70 REM 

£80 REM * READ U.D.G. # 

£90 FOR T=0 TO 9 
300 s FOR U = 0 TO 7 
310 siFOR W=0 TO 8 

320 x:iREAD DxPOKE CHAR+UDG*8+T*72+W*8+U 

,D 

330 * x NEXT W 
340 xNEXT U 
350 NEXT T 

380 REM * DATA FOR U.D.G. * 

400 REM 1 SHIP 

420 DATA 0,0,0,0,0,8,15,££5, £24,0,0,0,3 
,128,8,0, 0,0,0,0,0,3,128,8 
440 DATA 0,0,0,0,0,0,15,255, 8,0,0,0,0,0 
,0,15, £55,8,0,0,0,0,0,0 

460 DATA 63,255,252,0,0,0,0,0, 8,63,255, 
£48,0,0,0,0, 0,8,31,255,240,0,0,0 
480 REM 2 HELICOPTER 

50© DATA 0,0,0,0,7,128,0,255, 252,©,©,®, 

0,12,192,0, 0,0,0,0,0,96,24,96 

520 DATA 0,0,0,0,0,0,127,240, 112,0,0,©, 

0,0,©,111, £55,224,0,0,0,0,127,240 

540 DATA 3,255,192,0,0,0,0,2, 0,0,127,12 

8 ,0,©, 0,0, £ ,0 ,0 ,6 ,4 ,© ,0 ,0 

56© REM 3 BUS 

560 DATA0,0,0,0,0,0,60,1, 224,0,8,0,63,2 
55,252,24, 0,192,0,0,0,36,16,84 
600 DATA 0,0,0,0,0,0,36,16, 84,0,0,0,0,0 
,0,36, 16,84,0,0,0,0,0,0 

620 DATA 63,255,214,0,0,0,0,0, 0,63,255, 
£14,0,0,0,0, 0,0,127,255,214,0,0,0 
640 REM 4 RAILWAY ENGINE 

660 DATA 0,0,0,12,3,128,7,131, 192,0,0,0 

,12,195,128,3, 1,128,0,0,0,31,255,128 

680 DATA 0,0,0,0,0,0,31,255, £40,0,0,0,0 
,0,0,31, 255,240,0,0,0,0,3,240 
700 DATA 31,255,240,0,0,0,0,2, 128,15,25 

5,240,0,0,0,12, 2,128,31,255,240,0,0,0 
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720 REM 5 TREE 

740 DATA3,15,0,127,255,252,0,60,0,3,255, 
192,63,255,188,0 

750 DATA 60,0,15,255,240,55,247,248 
760 DATA 0,60,0,15,255,248,31,63,248,0,6 
0,0,126,255,126,31 

770 DATA 60,240,0,60,0,127,255,240 
780 DATA 24,60,48,0,60,0,255,255, 252,0, 
60,0,0,60,0,127, 223,252,0,60,0,0,60,0 
800 REM 6 CAR 

820 DATA 0,0,0,0,127,0,12,0, 24,0,0,0,0, 
132,128,0, 0,0,0,0,0,1,4,64 
840 DATA 0,0,0,0,0,0,2,4, 32,0,0,0,0,0,0 
,127, 255,255,0,0,0,0,0,0 

860 DATA 63,255,255,0,0,0,0,0, 0,127,255 
,254,0,0,0,0, 0,0,30,0,60,0,0,0 
880 REM 7 GOOSE 

900 DATA 0,0,0,0,120,0,1,0, 0,0,0,0,0,12 

4,0,3, 0,0,0,0,0,0,124,240 

920 DATA 0,0,0,0,0,0,96,125, 216,0,0,0,1 

,224,0,127, 255,252,0,0,0,0,248,0 

940 DATA 127,255,255,0,0,0,0,248, 0,15,2 

55,128,0,0,0,0, 248,0,7,255,0,0,0,0 

960 REM 8 TANK 

980 DATA 0,0,0,64,3,0,51,51, 48,0,0,0,64 
,255,0,63, 255,240,0,0,0,65,255,128 
1000 DATA 12,204,192,0,0,0,67,0, 255,0,0 
,0,64,0,0,79, 255,192,0,0,0,64,0,0 
1020 DATA 255,255,240,0,0,0,64,0, 0,255, 
255,248,0,0,0,64, 0,0,127,255,252,0,0,0 
1040 REM 9 CLOCK 

1060 DATA 0,0,0,9,64,144,8,66, 16,0,0,0, 

8,32,16,8, 24,16,0,0,0,8,16,16 
1080 DATA 8,0,16,15,255,240,10,15, 80,15 
,255,24©,8,0,16,8, 0,16,0,0,0,8,24,16 
110© DATA 8,0,16,0,0,0,8,66, 16,9,0,144, 

0,0,0,8, 0,16,8,0,16,0,0,0 
1120 REM 10 APPLE 

1140 DATA 0,0,0,1,255,128,3,255, 192,0,© 

,0,3,255,192,1, 255,128,0,192,0,3,159,19 
2 

1180 DATA 0,253,8,0,32,0,7,255, 224,0,6© 
,0,0,16,0,7, 255,224,0,0,0,0,16,0 
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1180 DATA 7,855,224,0,0,0,0,60, 0,7,255, 
224,0,0,0,0, 255,0,3,255,192,0,0,0 
1200 FOR T = 51 192 TO 5U99:P0KE T,255:NEX 
T 

1210 DIM COLOUR < 1 1 ) 

1220 FOR T=1 TO 1 1 :READ COLOUR<T>:NEXT T 
1240 REM * DATA FOR COLOUR OF OBJECTS * 
1260 DATA 11,5,2,8,9,7,4,13,14,10,14 
1300 DIM A<5,4) 

1320 REM * SHUFFLE CARDS * 

1340 FOR T=1 TO 5 

1360 :FOR U=1 TO 4 

I960 ::A<T,U>=0 

1400 :NEXT U 

1420 NEXT T 

1440 FOR T=1 TO 10 

1460 : FOR U=1 TO 2 

1480 : s X1 = INT < RND < TI>*5+1> 

1490 : :Y1 = INT(RNO <TI) *4 + 1) 

1500 ::IF A<X1,Y1>=0 THEN A<X1,Y1>=T:GOT 
O 1540 

1520 s:GOTO 1480 
1540 s NEXT U 
1560 NEXT T 

1990 GOTO 9000:REM * GOTO MAIN PROGRAM * 
2000 REM * PRINT SCREEN * 

2020 PR I NT " L^F' ICTURE PAIRS BY MICHAEL BE 
WS " 

2040 GOSUB 2900:TYPE =11 
2080 FOR T1=1 TO 5 
2100 :FOR T2=1 TO 4 
2120 ::GOSUB 3000 
2140 :NEXT T2 
2160 NEXT T1 

2200 pRiNT-a mmm n 

2220 PR INTTAB < 7)"A BCD 

EJSH" 

2240 FOR T=1 TO 4 
2260 :PR INTTAB <3 >;T 

2270 IF T<4 THEN PRINT:PRINT:PRINT 

2280 NEXT T 

2890 PR INT"3":RETURN 

2900 REM * PRINT SCORE * 

2920 PR I NT 11 BW"; BLANK* 
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£940 PR INT"□B RIGHT: ";S 

£960 PRINTS" ; TAB < £5) "WRONG: TRIES 

£980 RETURN 

3000 REM * PRINT CARD 'TYPE 1 AT T1 ,T£ * 
30£0 PX = <T1-1)*6 s PY=( T£-1 ) *4 
3060 LOC=GRID+PX+40*PY 

3080 SYMBOL =1£8 + <(TYPE- 1 )*9) : IF TYPE=11 
THEN SYMB0L=£55 

3090 IF TYPE =0 THEN SYMB0L = 3£ 

3100 FOR C=0 TO £ 

31£0 :FOR D=0 TO £ 

3140 ::POKE LOC+C*40+D.SYMBOL 

3160 : :POKE LOC+C*40+D+CD, COLOUR <TYPE) 

3180 : : IF TYPEOll AND TYPE< >0 THEN SYMB 

OL =S YMBOL +• 1 

3£00 :NEXT D 

3££0 NEXT C 

3990 RETURN 

4000 REM * DISPLAY CARDS INITIALLY * 

40£0 PRINT"a^" : PRINT"*! HOW LONG DO YOU 
WISH TO SEE THE CARDS" 

4040 PRINT" (0 TO 9 SECONDS) ?" 

4060 FOR T=1 TO 10:GET A$:NEXT T 

4080 GET A$: IF A$= " " THEN 4080 

4090 IFA$<"0" OR A$>"9" THEN 4080 

4100 TD= 1 000*VAL <A$) : PR I NT" ; BLANK $: 

PRINTBLANK* 

4 110 IF TD =0 THEN RETURN 
41£0 FOR T1=1 TO 5 
4140 :FOR T£=l TO 4 

4160 : :TYPE =A <T1,T£):GOSUB 3000:REM * DI 
SPLAY * 

4180 :NEXT T£ 

4£00 NEXT T1 

4£40 FOR T = 1 TO TD:NEXT:REM * DELAY * 
4£60 TYPE =11:REM * BLANK * 

4£80 FOR T1=1 TO 5 
4300 :FOR T£=l TO 4 
43£0 ::GOSUB 3000 
4340 :NEXT T£ 

4360 NEXT T1 
4990 RETURN 

5000 REM * INPUT GUESS * 

50£0 PRINT" gi m " 
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5040 PR I NT WHERE IS THE FIRST PICTURE 

II 

5060 GOSUB 6000 
5100 T1=G1:T2=G£ 

51£0 TYPE =A < T 1 ,T£): GOSUB 3000 
5140 PRINT H ^T 

5160 PR I NT" 19 WHERE IS THE SECOND PICTUR 
E " 

5170 GOSUB 6000 

5180 IF G1=T1 AND G£=T£ THEN 5140 
5130 REM * COMPARE PICTURES * 

5200 L1=T1:L2=T2:T1=G1sT2=G2 
5220 TYPE = A(T1,T2): GOSUB 3000 
5230 FOR T=1 TO 1000:NEXT T 
5240 IF A(L1,L2> =A< G1,G2 > THEN 5500 
5260 REM * WRONG GUESS * 

5280 TYPE =11:GOSUB 3000:T1=L1:T2 = L£:GOSU 
B3000 

5300 TRIES=TRIES+1 

5320 PR I NT H;TAB<14> " W R O N G ! " 

5330 FOR T =1 TO 1500:NEXT 
5340 RETURN 

5500 REM * RIGHT GUESS * 

5520 TYPE =0:GOSUB 3000:A<T1,T2)=0:T1=L1: 
T2=L2:GOSUB3000:A <T1,T2 > =0 
5560 S=S+1 

5570 PR INT" SMgM ";TAB<15)"R I G H T" 
5580 FOR T=1 TO 1500:NEXT 
5600 RETURN 

6000 REM * CHECK VALID GUESS * 

6020 FOR T=1 TO 10:GET A$:h£XT T 
6040 PRINT" ITS LETTER <A TO E) ? u 
6060 GET A$:IF A*=" " THEN 6060 
6080 IF ASK "A" OR A$>"E" THEN 6060 
6100 G1=A3C(A^>-64 

6140 PRINT" ITS NUMBER <1 TO 4) ?" 

6160 GET A$:IF A$=" " THEN 6160 
6180 IF ASK"1" OR A$>"4" THEN 6160 
6200 G£=VAL<ASO 

6240 PR lNT" 8mm u : PR I NT BLANKS: PRINT BLAN 

6260 IF A < G 1 / G2 ) =0 THEN PR I NT " QX3" : GOTO 
6000 

6280 PRINT " mM " SPRINT BLANKS 
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6400 RETURN 

9000 REM * MAIN PROGRAM * 

9020 G03UB 2000 
9040 GOSUB 4000 
9060 GOSUB 5000 
9080 GOSUB 2900 
9100 IF S<10 THEN 9060 

9120 PRINT" gMESESB THANK YOU VERY MUCH FOR 
THE GAME-BYE." 



Bricklayer 


You are in control of a small aircraft which flies across the top of the 
screen. From the bottom of the screen, a large wall is being built up 
which will eventually fill the whole of the playing area. The object of the 
game is to drop men out of the aircraft, aiming to plummet them through 
gaps in the wall to the bottom of the screen. If a man should hit any part 
of the wall then a life will be lost. In order to create gaps for the men to 
drop through and to prevent the wall advancing too far up the screen, 
you also have the option of dropping bombs which blow sections of the 
wall away. 

1 REM **+64 VERSION*** 

2 REM* + *BRICKLAYER * * * 

5 POKE 53280,2 : POKE 5328 1 , 3 : PR I NT " Lfil" ; 

6 G03UB 4000 

7 POKE 52,48?POKE 56,4S:CLR 

3 GOSUB 180 

3 " mms. 

10 LET HS = 0 

15 PR I NT 11 gtlMMlUlllM H I : "; HS 
20 LET X=X+F 

30 IF X = 0 OR X = 37 THEN DU =.04:HI = 14 sLO =2 
39:GOSUB 2000:LET F=-F 
32 PR i NT" SSSCORE: "; s; " 

?1WML IVES S " ; L 1VES ; " IB " 

40 PR INT"aH" r TAB <X); " £ " 

50 GET Q$: IF Q*="Z" THEN IF T< > 1 THEN LE 
T T=1:LET K=X+l:LET L=2 

55 IF G$="M" AND X>3 AND X<35 THEN IF Z< 

>1 THEN LET Z=1:LET Q=X+1:LET 1=2 

60 IF T=1 THEN PR INTLEFT*<D$,L+1>;TAB<K) 

" ":L =L + 1:PR1NTLEFT$(D$,L+1);TAB(K)"]" 

61 IF T=1 THEN DU=.002:HI=8:L0=97:G0S4B 
2000 

62 IF T=1 THEN IF PEEK<<<L+1)*40)+K+1024 
) < >32 THEN GOSUB 140 

65 IF Z=1 THEN PRINTLEFT$<D$,I+1>;TAB<Q) 

" "!LET I = I + 1:PRINTLEFT^<D^,I + 1);TAB CQ)" 

t " 

66 IFZ=1THENDU=.002:HI=6:LO=71:GOSUB 200 
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0: IFPEEK< < < I + 1 )*40 > +Q+1024)< >32THENGOSUB 
160 

70 IF L =21 THEN PRINTLEFT$<D$,L+1);TAB<K 
> " "iLET T = 0 

75 IF 1=21 THEN S=S+B*2:DU=.1:HI=26:L0=1 
56:GOSUB2000:PRINTLEFT3KD*,I + 1 > ;TAB <Q )" 

II 

76 IF 1=21 THEN LET I=0:LET Z=0 
1 10 LET A=A+C 

115 PRINTLEFT$<D$,B+1);TAB<A) ; MID^<"HifgJ 
0" , RNO <1)*5 + 1/l); "ca" 

120 IF A < 3 OR A >35 THEN LET C = -C:LET B = B 
- 1 

125 IF B =3 THEN 1000 
130 GOTO 20 

140 PRINTLEFT$<D$,L+1);TAB<K)" ":PR INTLE 

FT*<D*,L+2);TAB<K-2>;" H :LET T = 0 

141 IF L<20 THEN PRINTLEFT$<D$,L+3);TAB < 
K - 1 > " 

150 RETURN 

160 PR INTLEFT$<D$, 1 + 1 ) ; TAB <Q ) ; -'LET 

LIVES =LIVES-1:DU=. 1:HI=2:LO=90:GOSUB 200 
0 

161 DU = . 1:HI=3:L0=35:GOSUB2000:Z =0:PR INT 
LEFT$<D$,1+1);TAB<Q) m ";LEFT$<D*,I+2>;TA 
B < Q - 1 ) " 

162 IF LIVES=0 THEN 1000 
166 RETURN 

180 DATA 0,126,126,126,126,126,126,126 

181 DATA 0,24,118,219,255,110,24 ,0 

182 DATA 231,126,60,60,60,60,60,24 

183 DATA 28,28,8,62,8,8,20,34 

190 PRINT"B" ; 

191 POKE 56334,PEEK<56334)AND254 

192 POKE 1,PEEK <1)AND 25 1 

193 FOR 1=0 TO 215s POKE I + 12288,PEEK< I +5 
3248) -'NEXT 

134 FOR 1=216 TO 247:READ AiPOKE 1+12288 
,A:NEXT 

195 FOR 1=248 TO 5 11:POKE I + 12288,PEEK< I 
+53248):NEXT 

196 POKE 1,PEEK <1)OR4 

197 POKE 56334,PEEK<56334>OR1 
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199 LET A =35•LET B=££:LET C=-.6:LET T = 0: 
LET L = 1s LET 2=0:LET I = 1:LET X = 0:LET F = 1 
£00 LET S =0•LET LIVES=10:RETURN 
1000 IF LIVES=0 THEN FRINTTAB(30)"0" 

1010 FOR 0=0 TO 255 STEP 4 
10£0 DU = .01 :HI=0sL0=l£3:G0SUB £000 
1025 NEXT 0 

R GAME?" 

1035 IF S >HS THEN LET HS = S 

1040 GET A$s IF A$<>"Y" AND A*<>"N" THEN 

1040 

1050 IF A$="Y" THEN GOSUB 199 s PR I NT" iJ" ; s 
FOR V =1 TO 1000:NEXT:GOTO 15 
1060 END 

£000 POKE 54273,HI:POKE 54£7£ ,L0:POKE 54 
276,33 

2010 FOR DELAY=1 TO 500*DU:NEXT 
£020 POKE 54276,32 
£030 RETURN 

4000 POKE 53272,2 1:PR INT" LMi 
BRICK LAYER" 

40 10 PRINT" -" 

4011 PR INT"THE OBJECT IS TO DROP HUMANOI 
DS FROM THE"; 

40 12 PR INT"SPACECRAFT AT THE TOP OF THE 
SCREEN." 

4013 PR I NT "IBS THE GAME PROGRESSES, A l*JAL 
L WILL BE" 

4014 PR INT"BE BUILT STARTING FROM THE BO 
TTOM.HOLES" 

4015 PR INT"CAN BE MADE IN THIS BY RELEAS 
ING A BOMB."; 

4016 PR INT"YOU HAVE 10 LIVES,AND EACH TI 
ME A" 

4017 PR INT"HUMANOID HITS THE WALL,A LIFE 
WILL BE LOST." 

4018 PR I NT "^|| 2.DROPS BOM 

BS" 

4019 PRINT" M.RELEASES HUMANOID 



THEN 4021 






Bricklayer 247 


4022 GET IF A4>=" " THEN 4022 
4025 PRINT"J"; SPOKE 53272,28 
4030 8=54272 

4040 FOR XX=S TO S+24 SPOKE XX,0:NEXT XX 
4050 POKE S +5,9:POKE S+6,0:POKE 3+24,15 
40G0 RETURN 
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This is a simulation of a drag race. The object of the game is to complete 
the quarter mile course in the shortest possible time. You have four 
gears and must determine the optimum moment for changing up. If you 
change too early, your revs will fall too low and you will lose valuable 
time; if you spend too much time in high revs you’ll probably blow your 
engine. The rear end ratio of the car is progressively increased with each 
succeeding game, and the right moment to change gear becomes 
increasinly hard to judge. 

0 REM***64 VERSION*** 

1 REM DRAG RACER BY R.ERSKINE 1983 MOD IF 
IED I.FROST 

5 GOSUB 4000 r 

10 GOSUB 9000 
15 GOSUB 9150 
20 G = 1 

100 GETIS: I=VAL <I*) 

120 IF I>0ANDI<5THENG=I 

125 IFT<3THENRPM=FNA <X ) * GOTO 140 

130 RPM=FNB <X ) 

140 IFRND <I)><RPM-6000)/1000THEN160 

150 6OTO3000 

160 OS=NS 

170 OP =NP 

180 TQ=FNC<X> 

130 TR=17 
200 NS=FND <X ) 

210 NP=FbE:<X> 

240 T=T+1 

250 FORJ=0TO50:NEXT: REM DELAY 

280 REM * STRING FUNCTIONS FOR REV CO.+S 

PEEDO DISPLAY 

285 PRINTDN*; "ffiMKSa"; 11 BBEBBti " ; LEFTS< CLEFTS 
<BA$,NS/4+3>+BB*0 ,32) 

330 IFRPM<1500THEN3500 

340 PRINTDNS; 11 n ;LEFT$< <LEFT$<BA$,RPM 

/150-10>+BB$O r 32 ) 

339 REM MOVE SPRITE 

400 CO =CO +T*2: IFCO >255THENCF =CF +1:CO = CO- 
255 
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410 POKEV, CO : POKEV +16,CF 
500 IFNP<1320THEN100 
£000 T=FNH <X) 

£005 IFBT = 0THENBT=T 
£010 IFT< BTTHENBT = T 

£030 PR I NT "ST I ME " ; T ;"|8 SECONDS " 

£040 PR INT"BEST TIME: ; BT; "IB SECONDS" 

£050 PRINT"CMAXIMUM SPEED: H ;NS;"H MPH" 
£055 FORX=1TO£000:NEXT 
£060 PR INT"PRESS ANY KEY TO RESTART" 

£070 GETA$:IFA$=""THENE070 

£090 GR=GR+. 1: IFGR>4.1THENGR=4.11 

£095 GOSUB9005 

£096 G0SUB9310 

£100 GOTOE'0 

3000 POKE£040 r 193:P0KEV+£3,1:REM EXPLOSI 
ON SPRITE 

3010 FOR 1 = 1 TO£0 : PR I NT "ENG INE BLOWSEJ" : FOR 
J =0TO50:NEXT 

30£0 PR I NT " J3ENG I NE BLOWS«D" :FORJ=0TO50:N 
EXT 

3030 NEXTI 
3040 GOTO£055 

3500 PR I NT " SING I NE STALLS -LOW REVSTT 1 
3510 GOTO£055 
4000 PR I NT " LJ" 

40 10 PRINT" MMliMM ia DRAG RACER M&" 

4030 PRINT"IN THIS DRAG RACING SIMULATIO 
N YOU MUST 

403£ PR INT"TRY TO COVER THE QUARTER MILE 
IN THE 

4034 PR INT"SHORTEST POSSIBLE TIME. THE 
ONLY 

4036 PR INT"CONTROLS YOU NEED ARE THE GEA 
RS WHICH 

4035 PR INT"MUST BE CHANGED AT THE OPTIMU 
M MOMENT 

4040 PR I NT" £F)T THE START YOU ARE IN FIRS 
T GEAR AND 

404£ PR INT"YOU MUST WATCH THE RPM COUNTE 
R AND 

4044 PR INT"DEC IDE WHEN TO CHANGE INTO SE 
COND . 

4046 PRINT"AT OVER 6000 RPM THERE IS A H 
IGH 
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4048 PR INT"PROBABILITY OF THE ENGINE BLO 
WING . 

4050 PR I NT " I TH EACH SUCCEEDING ATTEMPT 
THE GEAR 

4052 PR INT"END RATIO IS INCREASED SLIGHT 
LY WHICH 

4054 PR INT"MAKES THE GAME PROGRESSIVELY 
MORE DIFFICULT 

4060 PR I NT "IS TRY NOT TO CHANGE GEAR TOO 
LATE OR TOO 

4062 PR INT"EARLY. THE GEAR KEYS ARE 1,2 
,3 AND 4. GOOD LUCK. 

4070 FORX =1TO2000:NEXT 

4080 PRINT"BFRESS ANY KEY TO START" 

4090 GETA$:IFA$=""THEN4090 
4095 RETURN 

3000 PRINT"H" :FORX=0TO7 

8010 FR I NT " Mi- 


8020 NEXT 
8060 RETURN 

3999 REM INITIALIZATION 
9000 DIMG(4 > 

9005 POKE53280,5 '• P0KE5328 1 ,7:PRINT"J 
KE53281,2 




1 : T : ' r •'■7 ’; yy 

9007 

i i i i 

i1II11111111111 

1 1 1 II 1 1 1 1 1 1 II 1 1 

1 1 1 1 

9010 

1 

G ( 1 ) =4 


9020 

G < 2 ) =2.5 


9030 

G < 3) = 1.5 


9040 

G < 4 > = 1 


9050 

T = 0:NP =0:NS =0 


9070 

MPH =0 


9030 

RPM=0 


91 10 

PRINT 

IBJBM1PPM" 

91 15 

PRINT" 20 30 

40 50 

60" 



9 125 

PR I NT " aS^lMgRIYPH " 


9130 

PRINT" 0 25 

50 75 

100 



9140 

GOSUB8000 


9145 

RETURN 
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9150 DEFFNA<X>=4200*<G<G>/G<1>) 

9160 DEFFNB<X>=NS*GR*G<G>*CN/CI 

9170 DEFFNC < X > = < C 1*RPMt3 > + <C2*RPMt2) + < C3 

*RPM> 

9180 DEFFm<X)=OS+<TQ/TR> 

9190 DEFFNE <X > =OP+NS* <5280/6012) 

9220 DEFFNH <X)=T+ <1320-OP>/<NP-OP>-1 

9250 CN=63360 

9260 Cl =4523.89342 1 

9270 Cl=-1-8953E-9 

9280 C2=1.02157E-5 

9290 C3=.015752 

9300 BT=0:GR=3 

9310 CO=0 s CF =0 

9315 RESTORE 

9320 FORX=0TO62:READD:POKE12288+X,D:NEXT 
9330 FORX =0TO62:READD : POKE12352+X,D:NEXT 
9340 V =53248 i POKE2040 , 192 : POKEV+39,6 : POK 
EV,CO s POKEV+1,70:POKEV+ 16,CF 
9350 POKEV+29,1:POKEV+21,1:POKEV+23,0 
9360 RETURN 

49999 REM ** DATA FOR SPRITES 

50000 DATA0,0,0,0,0,0,0,0,0 

50001 DATA©,0,0,30,0,0,63,0,0 

50002 DATA 127,128,0,127,192,0,255,192,0 

50003 DATA241,224,0,238,224,0,238,224,0 

50004 DATA223,96,0,238,224,0,238,229,64 

50005 DATA238,242,160,241,243,224,127,21 
9,228 

50006 DATA 127,223,238,63,19 1,251,31,0,14 

62010 DATA 136,16,34,68,56,68,102,56,204 

62011 DATA55,57,216,59,187,134,31,187,24 
0 

62012 DATA207,255,230,127,255,252,63,255 
,248 

62013 DATA?,255,192,255,255,254,7,255,19 
2 

62814 DATA63,255,248,127,255,252,207,255 
,230 

62015 DATA31,187,240,59,187,184,55,57,21 
6 

620 16 DATA 102,56,204,68,56,68,136,16,34 
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A group of enemy ships randomly make their way across the horizon, 
and it’s up to you to sink as many of them as possible by firing missiles 
using the space bar. A mobile sight is printed slightly below the line of 
the horizon. There are three sizes of enemy ships, and the smaller the 
target the more points you score for a hit. Occasionally the enemy’s 
electronic defence system will succeed in confusing your missile and 
deflecting it from its course. 

1 REM EXOCET (2 ROBERT ERSKINE 1933 
£ REM MODIFIED FOR 64 BT I.FROST '83 
3 P0KE46,80iP0KE48,80:POKE50,80:REM PROT 
EOT NEW CHARACTER GEN 
5 GOSUB9000 
10 GOSUB4000 
15 GOSUB1000 
£0 GOSUB1100 
30 HS =0 

180 FORX=1TOLEN < S$) 

105 GOSUB570 

110 PRINTLEFT$<DN$,14);:IFX<39THENPRINTL 
EFT$CAC^,39-X>; 

1£0 IFX<39THENPRINTMID$<S*,1 ,X):GOTO 140 
130 PRINTMID$<S*,X-38,39>; 

140 IFX >LEN<S$>THENPRINTLEFT$<Q$,X-LEN<S 

150 REM GET FIRE STATUS 
160 GETA$ 

170 GOSUB570 

195 IFFLAG=1THEN££0 

£00 IFA$< >"0"THEN£40 

£09 REM PO=POSITION SIGHTS AT FIRE 
£10 PO=< <UP-16) + <£55ANDH1 = 1>>/8+13*40+10 
£4:SU =PQ +40+3:FL = 1:R = 70 
£11 EX=EX-1 

£15 POKESO+4,128:P0KES0+4,1£9 
£20 POKESU ,93:POKESU+40,102:SU=SU-40 
230 POKESO +1,R!R =R-3 s REM MISSILE SOUND 
£35 IFSU =P0THENG0SUB£55 
£40 G0SUB578 

£43 I FFL=0THENFORI=0TO10iNEXT 
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£45 IFEX < 0ANDFL =0THEN3000 
£46 NEXTX:GGTO3000 
£50 EX =EX- 1:FL=0 

£55 POKESU+40,10£:POKESO+4,1£8:M=PEEKCPG 

) s F£ =0:FL =0 

£59 REM: M = WHAT HIT 

£60 IFM=65THENSC =SC +30: F£= 1 

£70 IFM=660RM=67THENSC =SC + 20:F£ = 1 

£30 IFM=68ORM = 69ORM=70THENSC =SC +£0: F£= 1 

£90 I FF£=0THENRETURN 

£99 REM SOUND+SPRITE 

300 POKES0 +11 r 1£8:POKESO +11,1£9 

310 POKEW+£,UP:POKEW+£1,3 

315 POKEW+16 , (3ANDH1=1) 

3£0 FOR 1 = 1TO 1000:NEXT:POKEW+£1,1 
3£5 POKEW+16,(1ANDH1=1) 

3£9 REM TAKE OUT BLOWN SHIP 

330 KO =X +(CUP-16>+<£55ANDHI=1>)/8-40 

335 IFKO <£THENKO =£ 

340 S$=LEFT$CS$,KO-l)+" "+MID$CS*,KO 

+5,LENCS$> > 

400 RETURN 

569 REM LOC. 197 HOLDS VAL KEY HELD 

570 IFPEEKC 197 > =64THENRETURN 

574 IFPEEK<197>=£3THENUP=UP+4:IFUP>70AND 
HI = 1THENUP =70 

575 IFUP >£55ANDHI=0THENUP=UP-£55:HI = 1 
580 IFPEEKC197 ) = 1£THENUP = UP-4: IFUP<£0AND 
HI=0THENUP =£0 

585 IFUP < 0ANDHI = 1THENUP=UP+£55:HI=0 
590 POKEW,UP:POKEW+16,HI:REM SPRITE CO-O 
RDINATES 
595 RETURN 

1000 P0KE53E81,6:PRINT"J":P0KE53£81,14 
1005 PRINT"^":POKE53£80,6 
1010 DN$ = 11 

1020 AC$=" IMtBllllMBHMmiWMMM>M 
UlifilUftl 

1040 PRINTLEFT*CDN$,15); :FOR I = 1TO 10:PR IN 
TSEA$;:NEXT:PR1NTLEFT$<SEA$,39>; 

1050 POKE£0£3,-10£: RETURN 
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1100 S$= " " : UP=£0 : H I =0 : EX = 15 
1110 G$<1>="* " s REM SHIFT A 

1 120 G$ < 2 > = " I — " : REM - BC 

1130 G$<3>="-— "iREM - DEF 

1140 FGRX=4TO10:G$<X>=" ":NEXT 

1150 Q$=" 

II 

1160 FORX=1TO50 

1170 S$=S$+G$<RND<X>*10+1 > 

1180 NEXT:P$=S$ 

1190 SC = 0 i POKEW+2 1,1 * RETURN 

2000 GOTO2000 

3000 POKEUI+2 1 ,0 : PR I NT" d" • P0KE5328 1,6: POK 
E53280,0SPOKES+4,1£8 

30 10 PR I NT " B E1GAME OVER" 

3020 PR T NT 11 MJffgQflglgl YOUR SCORE LIAS "JSC 

3030 IFSC>HSTHENHS=SC 

3040 PR INT"M THE HIGH SCORE IS";HS 

3050 PR T NT 11 ANY KEY TO 

RESTART" 

3060 L)A IT1 97 ,64 : GETA$: IFA$ = " "THEN3060 
3080 GOSUB 1000:GOSUB1100:GOTO 100 
4000 POKE53280,6:POKE53281,7:PRINT"Jffl 
EXOCET3" 

4010 PRINT"® THE OBJECT OF THIS GAME I 
S TO SINK 

4020 PRINT" THE ENEMY SHIPS WITH EXOCET 
MISSILES 

4030 PRINT" AS THEY CROSS THE HORIZON 
4040 PRINT" BZ = MOVE SIGHT LEFT 

4050 PRINT" gJK = MOVE SIGHT RIGHT 

4060 PRINT" ®0 = FIRE MISSILE 

4070 PRINT" SHIT ON —— SCORES 10 

4080 PRINT" 3SHIT ON |- SCORES 20 

4090 PRINT" SHIT ON # SCORES 30 

4 100 PRINT"BBS®&® PRESS ANY KEY TO START" 
4110 GETA$:IFA$=""THEN4110 
4120 RETURN 

9000 PR I NT "PLEASE WAIT ONE MINUTE" 

9009 REM READ CHAR GEN 

9010 POKE56334,PEEK < 56334)AND254 
9020 POKE 1,PEEK<1)AND251 

9030 FOR I=0TO128:FORJ=0TO7 

9040 POKE 10240 +I*8+J,PEEK(53248+1*8+J > 

9050 NEXTJ,I 
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3060 POKE 1 ,-PEEK < 1 >0R4 : P0KE56334 ,PEEK <563 
34 ) OR 1 

9070 P0KE53272 , <PEEK<53272>AND240)OR 10 

3079 REM READ IN NEW CHARS 

3080 FOR I=65 TO70 :FORJ=0TO7:READD:POKE 1 
0240 + I*8+J,D s NEXTJ,I 

9090 DATA0,0,0,0,0,0,16,255,0,0,0,0,1,39 

,255,127,0,0,0,0,128,230,255,254 

9100 DATA©,0,0,0,1,255,127,63,0,24,60,63 

,255,255,255,255,0,0,0,0 

9110 DATA 192,255,254,252 

9120 30=54272:W=53248 

9 130 FOR I=0TO62 s READD s POKE 12288+I,D;NEXT 
9140 FOR I=0TO6£:READD:POKE 12352+I,D:NEXT 

9149 REM W=VIDEO, SO=SOUND 

9150 POKEW,16:POKEW+1,228:P0KEW+2S,2:POK 
EW+3,130:P0KEW+23,2:P0KEW+29,2 

9160 POKEW+37,2:POKEW+38,7:POKEW+39,0:PO 
KE2040,192:POKE2041,193 

9170 P0KES0+5,15:POKESO+12,11:P0KES0+24, 
15iPOKESO +8,15 
9180 RETURN 

3299 REM SIGHT SPRITE 

3300 DATA0,24,0,0,24,0,0,24,0,0,24,0,0,2 
4,0,240,24,15,240,24,15 

9310 DATA 192,24,3,192,24,3,192,24,3,192, 

24,3,192,24,3,192,24,3,192,24,3 

9320 DATA 194,24,67,194,24,67,194,24,67,1 

94,24,67,194,24,67,194,24,67 

9330 DATA255,255,255 

9399 REM BOOM SPRITE 

9400 DATA 136,16,34,68,56,68,102,56,204 
3410 DATA55,57,216,59,187,184,31,187,240 
9420 DATA207,255,230,127,255,252,63,255, 
248 

9430 DATA7,£55,192,255,255,254,7,255,192 
9450 DATA63,255,248,127,£55,252,207,255, 
£30 

9460 DATA31,187,240,59,187,184,55,57,216 
9470 DATA 102,56,204,68,56,68,136,16,34 
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If you’re a Roman who doesn’t understand numbers to base 3, then this 
is the program for you. Convert between binary, hexadecimal, decimal 
and Roman numerals, plus any other number systems (to different 
bases) you care to invent. 7 fingered aliens catered for! 


10 REM ************************ 
£0 REM * NUMBERS * 
30 REM * ORIGINAL BY M. BEU1S * 
40 REM * * 
50 REM * CBM 64 VERSION BY * 
60 REM * GEOFF A., WITH FULL * 
70 REM * HEX <> DEC & BINODEC* 
80 REM * CONVERSION * 
90 REM ************************ 


100 :P0KE52,64:P0KE56,64:CLR:POKE53280,4 

:P0KE53281 ,6 

110 DIMK<10),C<£5>,A$<10),RN$<8),RN<8),H 
E$<16,2) 

120 DATA1000,500,100,50,10,5,1 

130 DATA©,0000,1,0001,2,0010,3,0011,4,01 

00,5,0101,6,0110,7,0111 

140 DATA8,1000,9,1001,A,1010,B,1011,C,11 
00,D,110 1 ,E, 1 1 10,F , 1 1 1 1 

150 RN$="MDCLXVI":FORA=1T07:RN$<A)=MID$( 
RN*,A,1> :READRN<A):NEXT 

160 FORA =0TO15:REACHED<A,1>,HE$<A,£):NEX 
T 

200 PRINTCHRS< 14) " J"TAB<4) "USi* I ** F /• 

... /r\\~- * m *Bsaa M 

2 10 PRINT" | HIS PROGRAM EXAMINES A FEW 
OF THE" 

220 PR INT"MANY COUNTING SYSTEMS, AND ENA 
BLES YOU" 

230 PR INT"TO INVESTIGATE SOME OF YOUR OW 
N ' mi" 

240 PRINTTABC 10) “CEASE WAIT. = 

GOSUB5000:PRINTCHR$<142 >; 

£50 POKE 532 80,5 : P0KE5323 1 ,6 : PRINT " TAB 

< 15) "aa* MENU 



Numbers 257 


260 PRINTTAB <5)"Ufl 1 □ 
270 PRINTTABC5)2 Q 
280 PRINTTABC5)"S 3 H 
230 PRINTTABC5)4 ■ 
MS" 

300 PRINTTABC5)"fl 5 @ 


ROMAN NUMBERSES" 
DECIMAL SYSTEM^" 
BINARY SYSTEMS" 
HEXADECIMAL SYSTE 

INVENT YOUR OWN! H 


310 PR INTTAB < 5 )" S 6 ■ ^ EXIT FROM PROGR 

AM M" 

320 PR I NTTAB < 10) PRESS 1-6 TO GO ■ 


330 GETQ$:IFQ$<"1"ORQ$>"6"GOTO330 

340 ONVAL (Q$)GOTO400,800,1200,1600,2200, 

4000 

350 G0SUB5100 s END 

399 REM *** ROMAN NUMBERS *** 

400 POKE53280,5:P0KE53281,2!PR INT" J"TAB< 
lOVHH* ROMAN NUMBERS *ggM" 

4 10 PR INT"S IN THE ROMAN SYSTEM 

□ II ■ 

_ r 

420 PR I NT" £3 

□ II ■ 

_ / 

430 PR INT"H M=1000 D =500 C=100 L=50 X= 10 
V =5 1 = 1 ■" 

440 PR INT"H A LOWER VALUE LETTER IMMEDIA 
TELY" 

450 PR INT"PRECEDING A LETTER OF HIGHER V 
ALUE IS" 

460 PRINT"SUBTRACTED INSTEAD OF BEING AD 
DED SO" 

470 PR INT"THAT, FOR EXAMPLE, LX=60 AND X 
L =4019" 

480 PR INT"ENTER A COMPLETE ROMAN NUMBER" 

:PR INT"< E.G. MCMLXXXIV ) " 

490 PR INT"OR PRESS H3ETURNH FOR MENU" 

495 PRINT" 

IE38"; : INPUTT$ 

500 IFT$="*"GQTO250 

5 10 FORA=1T0LENCT3O :FORA 1 = 1T07:C<A)=C<A ) 
+ < RN < A 1)AND < MID$ <T$,A,1)=RN$ CA1>)) 

520 NEXTA 1 

530 IFC < A)<1THENPRINTT$" IS NOT A ROMAN 
NO. mil 3 " s A =LEN < ) : NEXTA : GOTO480 

540 NEXTA:T=0:FORA=1TOLENCT*): IFCCA+1 ) >C 
< A)THENC < A ) = -C < A ) 
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550 T=T+C < A ): C (A)=0: NEXTA:PR INT" 

ii 

555 PRINT"® □" :PRINTT$" = 

";t 

560 PP T NT 11 gBfflfflfflMMfifflfiKMBI " * • GQTQ430 

799 REM ** DECIMAL SYSTEM * + 

800 POKE53280,6: P0KE5328 1,7: PR I NT" LSI" TAB 

(6)"®* DECIMAL SYSTEM (BASE 10) *®S^" 

810 PRINT"® ORIGIN H TEN FINGERS AND THU 
MBS MAKE®" 

820 PRINT"IT CONVENIENT TO COUNT IN GROU 
PS OF TEN!" 

830 PRINT»13aALL COUNTING SYSTEMS NEED EN 
OUGH SYMBOLSaTTO REPRESENT THE COUNT"; 

840 PRINT" FROM ZERO UP TO MONE LESS TH 
AN THE BASE NUMBER." 

850 PR INT"®THIS MEANS THAT SYMBOLS 0 1 2 
3 4 5 6 7 ®3 9 ARE NEEDED FOR DECIMAL" 
860 PRINT"HTHERE IS NO SEPARATE SYMBOL F 
OR THE BASE®<TEN IN THIS CASE). 

870 GOSUB5200:PR INT"L23" TAB(6)"DECIMAL 
SYSTEM (BASE 10) *M" 

880 PRINT"BTHE BASE IS REPRESENTED BY 1 
0 TO INDI - BCATE 1 COMPLETE GROUP OF"; 
890 PRINT" TEN PLUS 0 REM-®A INDER. '1 0 

0' THEREFORE MEANS TEN®" 

900 PRINT"GROUPS OF TEN, OR 10 X 10, OR 
10| <10 TOHTHE POWER OF TWO).®" 

910 PR INT"10^ 10 1 101 10- 10“ 10“ 10- 10 

I 104 10 

920 PRINT" 1 

0 0 ®" 

930 PR INT"Si® NOTE:* ANY NUMBER RAISED TO 
THE POWER OF® 1 <EG 104) IS ITSELF.®" 
940 PR INT"AND ANY NUMBER RAISED TO THE P 
OWER 0 IS ®ALWAYS 1 (EG 10^ = 1) 

950 GOSUB5200 s PR INT"LH"TAB (6 ) "®* DECIMAL 
SYSTEM (BASE 10) *®g^" 

960 PR INT"HUS ING THIS CONVENTION, RELATI 

NG ASCEND- ®ING POWERS OF THE BASE"; 

970 PRINT"|flVALUE, YOU CAN KREATE A CO 
UNTING SYSTEM TO ANY BASE YOU® WISH!" 

980 G0SUB5190:GOTO250 

1190 REM ** BINARY <-> DECIMAL ** 
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1191 REM ** THIS SECTION IS VERY ** 

1192 REM ** USEFUL FOR BUDDING ** 

1193 REM ** GRAPHICS PROGRAMMERS!** 

1194 REM ** CONVERSION USES HEXA-** 

1195 REM ** DECIMAL AS AN INTER ** 

1196 REM ** -MEDIATE STEP 

1200 POKE53280,8:P0KE53281,10:PR INT"LJC" T 
AB<7)"a* BINARY SYSTEM (BASE 2) * «pg " 
1210 PR INTHI! I CONSIST OF A VAST N 
UMBER OF 

1220 PR INT"SWITCHES. EACH SWITCH CAN BE 
■ONfl OR ■OFFfl. " ; 

1230 PR INT"(WELL , I HAVE A FEW CONFUSED 
ONES THAT "; 

1240 PR INT"GET STUCK HALF WAY,BUT IGNORE 
THOSE!!> 

1250 PRINT" FROM THE NOTES ON THE DECIM 
AL SYSTEM, 

1260 PR INT"YOU CAN SEE THAT BINARY NEEDS 
ONLY TWO SYMBOLS, '0' AND 1 1'"; 

1270 PRINT", TO COUNT UP TO ANYNUMBER. U 
SING MY 'OFF* STATES TO REPRE- SENT"; 

1280 PRINT" '0' AND 'ON' TO REPRESENT '1 
I CAN HOLD A DECIMAL NUMBER USING"; 
1290 PRINT" A CHAIN OF SIMPLE SWITCHES. 

B 11 

1300 PRINT"|^SI CAN ALSO:®" 

1310 PR INT"CONVERT DECIMAL TO BINARY a<P 
RESS 1 >■ 

1320 PR INT"H OR BINARY TO DECIMAL fl( 

PRESS 2 >■" 

1330 PRINT"H OR 3RETURNB TO MENU!" 

1340 GETQ$: IFQ$=""GOTO 1340 
1350 IFQ$=CHR*(13)GOTO250 
1360 IFQ$="1"GOTO 1500 
1370 IFQ$< >"2"GOTO 1340 

1379 REM ** BINARY TO DECIMAL ** 

1380 PRINT" LttWMgE NTER A BINARY NO.( < 17 

DIG ITS 

1390 PR INT"DO NOT LEAVE ANY SPACES! ('RE 
TURN' FOR MENU)" 

1395 INPUT" ■■■■■■■■■■■■■I 

*gsag M ;L^ 

1400 IFL$="*"GOTO250 
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1405 IFLEN(L$) > 16GOTO 1380 

14 10 FORA =1T0LEN(L$) : IFMID*(L$,A,1)<"0"O 
RMID$(L$,A,1> >"1"GOTO 1560 
1420 NEXTA 

1425 JL=LEN(L$): IFJL/4=INT<JL/4)GOTO 1440 
1430 L$="0"+L$:GOTO 1425 

1440 HE$="":F0RA=1T0JLSTEP4:F0RA1=1T015 
1450 IFMID*(LS>,A,4)=HE$<A1 ,2 )THENHE*=HE$ 
+HE*(A1,1) 

1460 NEXTA1 , A 

1470 IFLEN<HE$X4THENHE$="0 " +HE$:GOTO 147 
0 

1480 N$=L$:T$=HE*:BIN=1:GQSUB2080:G0SUB5 
190:GOTO 1380 

1500 PRINT" .izmmE : NTER a DECIMAL NO.< < 6 
5535>H" 

1510 PRINT"<'RETURN 1 FOR MENU)" 

1520 INPUT" lflBflBBBBBBB*IBBI" ’ L 

I FL$="*" G0T0250 

1525 FORA=1TQLEN(L$):JL$=MID*(L$,A,1) 
1527 IFJL3K"0"ORJL$ >"9"THENA = LEN(L$):NEX 
TA:GOTO 1560 

1530 NEXTA:L=VAL(L$):IFL<0ORL>65535G0T01 
700 

1535 T$=L$:HE$="" :BN$="":BIN=1:GOSUB1830 
1540 FORA=1T04:FORA 1=0TO15 

1550 IFMIDSKHE^A, 1 )=HE*(A1 , 1 )THENBN*=BN 
*+HE$(Al r 2) + " " s A 1 = 15 

1555 NEXTA1,A:PRINT"H"T$" = "BN$:G0SUB51 
90:GOTO 1500 

1560 PR I NT" i3 I DON'T UNDERSTAND ■'"L$:L$ 
=Q$:G0SUB5190:ONVAL <L$)GOTO 1500,1380 
1570 GOTO250 

1597 REM ** HEX <-> DECIMAL ** 

1598 REM ** NOTE USEFUL ROUTINES ** 

1599 REM ** FOR MACHINE CODE MANIACS ** 

1600 POKE53280 r 7 : P0KE5328 1 -6 : PR INT"BU 

fl* HEXADECIMAL NUMBERS (BASE 16) * ggIEi " 
1610 PRINT" ^COMPUTERS WORK BEST IN 

BINARY* 

1620 PR INT"a 

n il ■ 

_ r 

1630 PRINT" ^UNFORTUNATELY HUMANS DO 

NOT!!H" 
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1640 PR I NT" KITH IS COMPUTER USES 8 BIT ’WO 
RDS' (BYTES V 

1650 PR INT"EACH BYTE CAN HOLD AN INTEGER 
NUMBER IN THE RANGE 0 - 255" 

1660 PRINT"(I.E. 1 1 1 1 1 1 1 1 IN BINARY.) 

1670 PR INT"HA HEX. NUMBER IS EQUIVALENT 
TO A FOUR BIT BINARY NO." 

1680 PR INT"E.G. 1111 = F 0111 = 7" 

1690 PRINT" I 4- I 

1700 PR INT"THIS IS AN EASY WAY OF REPRES 
ENTING BINARY NUMBERS FOR YOU & ME!" 

1710 PR I NT"E.G. 010000001 111 = 40F = 10 

39" 

1720 PRINT" I 4- 

4 JGOSUB5200 

1721 PR I NT" kJI! fl* HEXADECIMAL NUMBERS < 
BASE 16) 

1722 PRINT" DECIMAL HEXADECIMALS3" 

1723 FORA=0TO15:PRINTTAB(6);A;TAB(22)HE$ 
( A , 1 ) :NEXT:GOSUB5200 

1730 PRINT ^JWasgP Q YOU WANT TO CONVERT s £|" 
1740 PRINTTAB(10)"DECIMAL TO HEX (PRESS 

fllH>H" 

1750 PRINTTAB(7)"OR HEX TO DECIMAL (PRES 
S tf2fi)?" 

1755 GETQ$: IFQ$<"1"ORQ$>"2"GOTO 1755 
1760 IFQ$="2"GOTO2000 

1770 PRINT"NTER A DECIMAL NUMBER (0 
- 65535)" 

1780 PR I NT" OR RETURNS FOR MENU" 

1730 INPUT" *■■■!" ;T$ 

1800 IFT$="*"GOTO250 

1810 L=VAL(T$): IFL >655350RL<0THENPRI NT"O 
UT OF RANGE. TRY AGAIN!":GOTO 1790 
1820 PR INTT$ n = ";:BIN=0 

1829 REM ** DEC - HEX CONVERT ROUTINE 

1830 L=L/4096 : FORA= 1T04 : LY.=L : L$=CHR$ ^BH¬ 
D'S- (LX>9 ) *7 ) : IFB IN=0THENPR INTL$; 

1840 IFBIN=1THENHE$=HET+L$ 

1850 L=16*(L-L/0 .’NEXT: IFB I N=0THENPR I NT: G 
0SUB5190:GOTO 1770 
I860 RETURN 

2000 PRINT" LMKE NTER A HEX NUMBER (E.G. 1 

A5D ) 
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£010 PR I NT "OR RETURNS FOR MENU" 

£0£0 INPUT" IBBBfll*IBBI" ; T$ 

£030 IFT$="*"GOTO£50 

£040 F0RA=iT0LEN<T*O:T1$=MID$<T*,A,1) 
£050 IFT!$>="0"ANDT1$<="9"GOTO£070 
£GS0 IFT1$<" A"ORT1^ >"F"THENPRINTT$" IS N 
OT A HEX NO. "* A=LEN(T^ >:NEXT s GOTO 1790 
£070 NEXTA:N*=T$:BIN=0 
£079 REM HEX - DEC CONVERT ROUTINE 
£080 L=0:FORA=1TOLEN<T*>:L%=ASC<TSO:LX=L 
%-48+<LX>64>*7:T$=MID$<T*,£) 

£090 L = 16 *L +LXs NEXT:PR INTN$" = ";L:IFBIN 
=0THENGOSUB5190:GOTO£000 
£100 RETURN 

£199 REM ** VAR IBASE CALCULATOR ** 

££00 POKE53£80,13:P0KE53£81,1 1 SPRINT"^" 
TAB <7 > " 13* VARIBASE CALCULATOR *SgM" 

££10 PR INT"YOU MAY CHOOSE ANY BASE BETHE 
EN £ AND £4" 

£2£0 PRINT"<DECIMAL>. WE SHALL USE LETTE 
RS 'A' TO S'N' FOR THE EXTRA SYMBOLS"; 
££30 PRINT" UP TO ONE LESSHTHAN THE CHOS 
EN BASE VALUE.HQ" 

££40 INPUT" aENTER YOUR BASE <£ - £4) 

EBI*IBB8" ; L$: IFL$ = " * "GOTO£50 

£250 B=VAL<L$): IFB<£ORB >£4THENPRINT"CE"; 

:GOTO2240 

££55 BF'=4- <B< 10 > *4 

££60 PRINT"^ !, TAB<7) "fl* VARIBASE CALCULA 
TOR 

££70 PRINTTAB< 14 ) "fl BASE ||"; B 

££80 PR I NT" YOUR BASE DECIM 

ALSMBBBBBBEQU I VALENT 

££90 PR I NT"M"TAB <4 ) ; 6; "@H^" ; TAB <£4 ) " 1 " 
£300 F0RA = 1T09:PRINTTAB(4>;B; "1TCHR$<96 + 
A>;TAB<£3>; INTC B t A >:NEXTA 
£318 G0SUB5190 

£315 FRINT H ijg"TAB<7) "fl* VARIBASE CALCULA 

tor * gaa " 

£3£0 PR I NT" a|I NPUT A DECIMAL NUMBER FOR C 
ONVERS ION TOaBASE";B; " < < gB";BtBF; " ) " 
£330 INPUT"H<OR RETURNS FOR MENU 
IflflBBBItBBBr ; L$: IFLT= " * "G0T0B50 
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2340 JL- = LEN<L$) :F0RA=1T0JL : JL$=MID$(L$,A 
, 1 ) 

2350 IFJL$<"0"ORJL$>"9"G0T02315 

2360 L=VAL(L$> : IFL >B tBPORL < 0GOTO23 15 

2365 HE$="":NA=L:F0RA=1T08 

2370 I = INT(NA/B >:HE$=CHR$<48+<NA-B* I> + <7 

AND<NA-B*I > >3} >+HE$ 

2380 IF I>=BTHENNA=I:NEXTA 

2383 HE$=CHR$ ( 48 +-1 + ( 7AND I >9) >+HE$: A = 8 

2385 NEXT 

2400 PR I NT " 133" ; L$; " 33* = !, HE$" <BASE";B 

; " )S" 

24 10 IFB >9THENFGRA =10TOB-1:PR INTCHR$<55 + 
A)" =";A;" ";:GGT02415 

2412 GGTO2430 

24 15 IFA = 140RA= 19THENPR INT M KI"; 

2420 NEXTA 

2430 PR INT:GGT02310 

4000 G0SUB5100:END 

4339 REM ** SET UP USER DEFINED CHARS 
5000 P0KE56334,PEEK <56334 > AND254:POKE 1,P 
EEK <1>AND251!REM K/B & I/O OFF 
5005 CS=20480:Cl=53248502=1024 
5010 FORA =0TO63s FORA 1=0TO7:0S=A*3+A1 
5028 P0KECS + 03 .,PEEK <C 1 +0S ) : POKECS+OS +C2 , 
PEEK < C1+0S +C2 >:NEXTA1,A 

5830 POKE 1 ,PEEK <1>0R4:P0KE56334,PEEK<563 
34 >OR 1!REM K/B & I/O ON 

5040 P0KE53272 , (PEEK(53272 >AND240)0R4 
5045 PRINT"J"; 

5050 FORA = 65T074:FORA 1=0TO7:READB 
5055 P0KECS+(8*A>+A1,B:NEXTA1 
5060 NEXTA 

5070 P0KE648,64:P0KE56576,(PEEK <56576 >AN 
D252 > 0R2 

5075 POKE53272,(PEEK<53272 >AND 15 > 

5030 RETURN 

5039 REM ** RETURN TO NORMAL CHAR. SET 
5 1 00 P0KE648,4 : P0KE56576 , (PEEK (56576 > AND 
252)QR3 

5110 P0KE53272 ,21:PRINT" J" ; :P0KE54296,0: 
RETURN 

5190 PR I NTTAB < 5 ) " KF'RESS RETURN® TO CONT 
INUE"s G0T05210 
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5200 PRINT-TAB <5) "HfcPRESS RETURNS FOR NE 
XT PAGEd" 

5210 GETQ$: IFQ*< >CHR*<13)GOTO5210 
5220 RETURN 

10000 DATA32,96,32,32,248,0,0,0,240,16,3 
2,64,240,0,0,0 

10010 DATA240,16,112,16,240,0,0,0,128,12 
8,160,240,32,0,0,0 

10020 DATA240,128,240,16,240,0,0,0,192,1 
28,240,144,240,0,0,0 

10030 DATA240,16,32,64,128,0,0,0,240,144 
,96,144,240,0,0,0 

10040 DATA96,144,112,16,240,0,0,0,96,144 
,144,144,96,0,0,0 



Championship Boxing 


Although we say it ourselves, this program is very close to being a 
masterpiece. Let’s face it, you’re never going to make it into the ring, 
but the hours you spend keying-in programs amount to a great deal of 
repressed aggression. So here’s your chance to take on the boxing 
champions of the world without stirring from your armchair. The 
program offers you a bird’s eye view of a boxing ring and the 
opportunity to go three rounds with an opponent of your choice. You 
only score points if you manage to connect with the head, and a KO is 
possible if your strategy’s slick enough. 

1 REM***3 BOXER *** 

2 REM *** 64 VERSION *** 

5 S1=0 s S£=S1:V=53248:POKEV,0:POKEV+1,0:P 
OKEV+2,0 sPOKEV+3 ,0 

8 GOSUB7000:POKE53280,10:POKE53281,10 
10 GOSUB2500 

15 ROUND=1:PRINTCHR$<8>; :P0KEV+21 ,3 
20 GOSUB9500 

62 PRINT ,, agESafiBaeMSa ,, TAB<33>R0 

63 POKESO + 15^37!POKESO+4,21 

70 X =32:Y=60:TM=3 s TS =1:F=224:G=220:E=0:P 
OKE2040 r 195:POKE2041 , 192:POKESO +4,20 
100 POKEV,X:POKEV+l,Y:POKEV+2,F:POKEV+3, 

G 

130 TS = TS-1: IFTS=0THENTM=TM-1:TS = 60: IFTM 
=-1THENGOTO8500 

150 PR INT"3SMSS53" ; : PR INTTAB <30 )TM; " : " ; : I 
FTS <10THENPRINT"0"; 

160 PRINTTS 

400 IFPEEK <653)=2THENG0SUB1000 

410 IFPEEK<653)=1THENGOSUB1100 

450 IFF<X+20THENIFRND <1> >SKTHENGOSUB2000 

500 KE =PEEK <197 ) 

505 Y=Y-8*< <KE=23ANDY<220)-<KE=12ANDY>60 
) ) 

5 10 X =X-8 *<<KE=44ANDX<224)-<KE=47ANDX >32 
) > 

550 F=F +8*INT <RND <1>*2.5>*-< <F<X + 4>-<F>X 
+4)> * <F >32 > * <F <232) 
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55£ IFF <X +6THENF =X +6 

560 G=G+8*INT(RND(1)*£.5)*-< <G<Y>-<G>Y>> 
563 IFG=YTHENG=Y+8* <I NT(RND <1>*3>- 1 > 

565 IFG>££0THENG=££0 

570 IFE=0THENIFX>£10THENE=1 

580 IFE >0THENE=E + <X<100) + 1: IFE = 10THENGOS 

UB3000 

690 REM SOUND 
700 GOTO 100 

1000 POKE£040,197SP0KES0+8,10 

10£0 IFY<G+1£ANDY>G+4THENIFX >F-1£ANDX<F+ 

4THENS1=S1 + 1!GOSUB1£00 s POKESO+11,33 

1030 IFS1=K£THENGOTO6000 

1040 FORT =1TO40:NEXT 

1050 POKE£040,195 s POKESO +11,0 

1090 RETURN 

1100 POKE£040,196IP0KES0+8,10 

11£0 IFY<G-4ANDY>G-1£ANDX>F-1£ANDX<F+4TH 

ENS1=S1+1:GOSUB1£00:POKESO+11,33 

1 130 IFS1=K£THENGOTO6000 

1140 FORT =1TO40:NEXT 

1150 POKE£040,195JP0KES0+11,0 

1190 RETURN 

1£ 10 RETURN 

£000 IFG >YTHENGOTO£100 

£010 POKE2041,194:P0KES0+8,1£ 

£0£0 IFG >Y-l£ANDG<Y-4THENIFF>XANDF<X+8TH 

ENS£ =S£ + 1s GOSUB2£00 s POKESO +11,33 

£035 IFS£=K1THENGOTO6500 

£040 FORT =1TO40:NEXT 

£050 POKE£041,19£SP0KES0+11,0 

£090 RETURN 

2180 POKE£041,193:P0KES0+8,1£ 

£130 IFG >Y + 4ANDG<Y+1£THENIFF>XANDF<X+8TH 

ENS£ =S£ + 1:GOSUB££00:POKESO + 11,33 

£135 IFS£=K1THENGOTO6500 

£140 FORT =1TO40I NEXT 

£150 POKE£041,19£ • POKESO+11,0 

£190 RETURN 

££00 PRINT" TAB < 3 

£ >S£ 

££10 RETURN 
£500 REM SOUNDS 
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£505 S0=54£7£:FORT=0TO£8:POKESO+ T,0 sNEXT 
T 

£510 POKESO+1,146sPOKfSO+5,7:P0KES0+6,1£ 

3:POKESO+15,13:POKESO+£4,15 

£5£0 POKESO +8,10:POKESO+1£,9:POKESO + 13,1 

£3 

£550 RETURN 

3000 REM UP AGAINST THE ROPES 

3010 FORT=£00TO150STEP-1sPOKEV, TsNEXTT 

3040 E =0:X = T:RETURN 

6000 X=X-10:F=F+10:POKEV+£,F:POKE£041,18 
3 :POKEV, XsPOKESO+ 1 1 ,0 

6010 POKESO + 15,19:FORT=1TO10:POKESO+4, £ 1 
:FORDL=1TO100:NEXTDL:POKESO+4,£0 
60£0 FORDL=lTO100:NEXTDL:NEXTT 
6050 PRINT"HSfiB3HHHSHg!"TAB< 10> "WELL BOXED 
- A K . 0 . " 

6060 POKE£040,189:F0RDL=1TO5003:NEXT 
6100 G0T066£5 

6500 X=X-10:F=F+10:POKEV, X:POKE£040,198 
:POKEV+£,F:POKESO+11,0 

6510 POKESO+15,19:FORT =1TO 10:POKESO +4,£1 
:FORDL=1TO100:NEXTDL:POKESO+4,£0 
65£0 FORDL=lTO100:NEXTDL:NEXTT 
6550 PRINT"^SSHHSS^MI BAD LUCK- A K.O. 

! ! " 

6600 POKE£041,199:FORDL=1TO5000:NEXT 
66£5 POKEV +£1,0:PRINT"J U ; : IFK1=S£ORS£ >S1 
THEN6700 

6630 PRINT" WELL DONE!! "SPRINT" YOU BEA 
T "B$<XX)" IN "RO" ROUNDS" 

6640 PR INT" MTHE RESULT IN POINTS WAS "SI 
" FOR YOU"SPRINT"AND "SB" FOR "BSKXX) 
6650 PR I NT "El I SUGGEST THAT YOU TRY A TO 
UGHER OPPONENT" 

6660 GOTO6780 

6700 PRINT" HBAD LUCK! ! "sPR INT" HYOU WER 
E BEATEN IN "RO u ROUKDS " 

6710 PR I NT" fifTHE RESULT IN POINTS WAS "SI 
" FOR YOU"sPRINT"AND "S£" FOR "B$<XX> 
67£0 PR I NT" HI SUGGEST THAT YOU TRY A UJEA 
KER OPPONENT" 

6780 PR I NT "12 HERE’S YOUR CHOICES-" 

6790 FORF = 1TO 10 s PR INTF". . . "; s IFF< >10THEN 
PRINT".«; 
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6795 PRINTB$(F):NEXTFSPOKE 198,0 
6797 INPUT"ENTER YOUR OPPONENTS NO. OR 0 
TO END";XX: IFXXO0THEN6810 
6800 PR INT" LfflHflfl NEXT TIME YOU WANT A FI 
GHT I WILL BE " 

6805 PRINT " *»■»»! FOR YOUMffl":END 
68 10 PRINTOK- YOU SHALL FIGHT "B$< 
XX):PRINT"EPRESS ANY KEY TO START THE BO 
UT" 

6820 GETW$:IFW$ =""THEN6S20 

6830 S1=0:S2=0:SK = <11-XX >/12:K2=10+XX+IN 
TCRND <1> *6):K1 = 16-XX+INT <RND <1 )* 10 > 

6840 GOTO 15 

7000 RESTORE:REM TITLES ETC. 

7100 print"enter your name<m 

AX 6 LETTERS) 

7150 INPUTC^s IFLEN<C$> >6THEN7100 
7200 PR I NT " kJ" f 

7500 DATA"HENRY HOPELESS","ARNOLD AWFUL" 

,"NIGEL NO-GOOD","PHILIP FAIR" 

7502 DATA"ANDREW AVERAGE " ,"ROGER RIGHT-H 
OOK","BRIAN BRICKWALL","SIMON SUPER" 

7504 DATA"EDWARD EXCELLENT","FLYNN FANTA 
STIC" 

7510 PRINT" El C H A M P I O N S H 

I P" 

7515 PR INT"a BOXING" 

7520 PRINT"!!® SO YOU WANT TO BE A CHAMP 
ION DO YOU?" 

7522 PRINT"® IF SO THEN THIS IS THE GAM 
E FOR YOU" 

7524 PRINT"® WHICH OPPONENT DO YOU WISH 
TO FIGHT FIRST?" 

7530 FORF=1TO10:READA$:PRINTF"IFF< 
>10THENPRINT". " ; 

7535 PRINTA$:B$(F)=A$:NEXTF 

7540 INPUTXX s IFXX< 1ORXX > 10THENPR I NT" CD" • 

GOTO7540 

7545 SK= <11-XX)/12 

7546 K2=10+XX+INT<RND <1)*6):K1 = 16-XX+I NT 
<RND <1>*10) 

7550 B$=LEFT$<B$<XX),6) 

7560 PRINT"U"SPRINT"® VERY WELL,YOUR 

OPPONENT WILL BE®"s PRINTTAB <14 >B$<XX) 
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7562 PR I NT" g&. EACH BOUT YOU FIGHT IS ONL 
Y 3 ROUNDS" 

7564 PR I NT" S3 MOVE ABOUT THE RING WITH^ < 
>XZ kAND PUNCH"; 

7566 PR I NT " gl WITH a|6BMk<LEFT HAND ) , J3SH IF 
Tk<RIGHT HAND) 

7568 PR I NT" BI^OTE THAT YOU CAN MOVE AND P 
UNCH AT THE"SPRINT"H SAME TIME. Jfl" 

7570 PR INT"3 ONLY PUNCHES TO THE HEAD SC 
ORE AND "SPRINT"M KNOCK-OUTS ARE POSSIBL 
E" 

7575 GOSUB9000 

7580 PRINT"H PRESS ANY KEY TO START THE 
BOUT" 

7590 GETX*sIFX$ =""THEN7590 

7595 RETURN 

8500 REM END OF ROUND 

8505 PR INT" 5EggISSgIgl t, TAB (89) 11 0 : 00 » 

8510 POKESO+4,21 

8520 POKE2040 ,192 s POKE2041,195 
8530 FORT=1TO500 s NEXT s POKESO+4,20 
8540 X=X+4 * <X >32):Y=Y+4*<Y>60)sF=F-4*<F< 
224)SG=G-4*(G<220) 

8550 POKEV ,XiPOKEV + 1 , Y 

8560 POKEV+2,F s POKEV+3, G 

3565 POKE2040,192 s POKE2041,195 

8570 IFX< =32ANDY<=60ANDF >=224ANDG> =220TH 

ENS580 

8575 GOTO8540 

8580 ROUND =ROUND + 1 s IFR0UND=4THENR0UND = 3s 
GOTO6620 

8585 POKESO+15,19 s FORT=1 TO 10s POKESO+4,21 
3590 PR INT"asaSSaae®53" TAB (7) "PREPARE TO 
FIGHT":PRINTTAB<7)" THE NEXT ROUND " 

8595 FORDL=1TO200s NEXTDL:POKESO+4,20 
8600 PR I NT " ) " 

"s PR INTTAB < 7) " 

8605 FORDL=1TO200sNEXTDL 
8610 NEXTT 
8620 G0T062 

9000 REM READ IN SPRITES' DATA HERE 

90 10 FORT = 0TQ511:READAsPOKE 192*64+T,AsNE 

XTT 
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9100 POKE2040,192!POKE2041,195:POKEV+33, 

0:POKEV+40,7 
9400 RETURN 
9500 REM DRAW RING 
9510 AA$="iT iBB$ = AA$ 

9520 F0RT=1T027: AA$=AA$+ ,I I 11 :BB$=BB$+. 

NEXTT 

9530 PRINT"J"TAB<8)"POINTS"TAB<IB)"POINT 
S"TAB <32 >"TIME" 

9535 AA$=AA$+"^ n :BB$=BB$+"H" 

3540 PRINT"J"AA$:FORT=0TO£2:PRINTBB$:NEX 

TT:printaa$; 

9600 PRINT"a n SPC< 152) "TIME"SPC< 136VR0UN 
D"SPC<195)"P0INTS"SPC<35)LEFT$<C$,6:> 

9605 PRINT"MSMS"TAB<3£:>LEFT$<B$<XX> ,6) 
3650 RETURN 

20010 REM *** SPRITE BOXER-LEFT *** 

20012 DATA 0, 56, 0, 0, 127/ 252, 0, 127 

, 254, 0, 167, 2 

20013 DATA 0, 127, 2, 0, 56, 63, 0, 0/ 1 

27, 0, 0, 127 

£0014 DATA 0, 0, 99/ 0/ 0/ 65, 0, 0/ 0/ 

0 , 0 , 0 

20015 DATA 0, 0, 65, 0, 0, 99, 0, 0/ 127 

, 0, 56, 127 

20016 DATA 0, 127, 63, 0, 127, 2, 0, 127 

, 254, 0, 127, 252 

20017 DATA 0, 56, 0, 0 

20020 REM *** SPRITE LEFT-PUNCH R *** 
18998 DATA 112, 0, 0, 255, £55, £52, £55 
, 255, £54, 254, 0, 2 

£0023 DATA £54, 0, 18, 112, 0/ 62, 0, 0/ 

127, 0, 0/ 99 

£0024 DATA 0, 0, 65, 0, 0, 65, 0, 0, 1, 

0, 0, 65 

£0025 DATA 0, 0, 65, 0, 0, 99, 0/ 0/ 126 

, 0, 56, 62 

£0026 DATA 0, 127, 18, 0, 127, 2, 0, 127 

, 254, 0, 127, 252 

£0027 DATA 0, 56, 0, 0 

£0030 REM *** SPRITE LEFT-PUNCH LEFT ** 
* 

£0032 DATA 0, 56, 0, 0, 127, 252, 0, 127 

, 254, 0, 127, £ 
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20033 DATA 0, 127, 18, 0, 56, 62, 0, 0, 

127, 0, 0, 93 

20034 DATA 0, 0, 65, 0, 0, 65, 0, 0, 1, 

0, 0, 65 

20035 DATA 0, 0, 65, 0, 0, 99, 0, 0, 127 

, 112, 0, 62 

20036 DATA 254, 0, 18, 254, 0, 2, 255, 2 

55, 254, 255, 255, 252 

20037 DATA 112, 0, 0, 0 

20100 REM *** SPRITE BOXER RIGHT *** 

20102 DATA 0, 56, 0, 63, 252, 0, 127, 25 

2, 0, 65, 252, 0 

20103 DATA 73, 252, 0, 124, 56, 0, 126, 

0, 0, 198, 0, 0 

20104 DATA 131, 0, 0, 131, 0, 0, 129, 0, 

0, 131, 0, 0 

20105 DATA 171, 0, 0, 198, 0, 0, 254, 0, 

0, 124, 56, 0 

20106 DATA 73, 252, 0, 65, 252, 0, 127, 

252, 0, 63, 252, 0 

20107 DATA 0, 56, 0, 0 

20110 REM *** SPRMTE RIGHT-R PUNCH *** 

20112 DATA 0, 28, 0, 63, 254, 0, 127, 25 

4, 0, 64, 254, 0 

20113 DATA 72, 126, 0, 124, 28, 0, 126, 

0, 0, 198, 0, 0 

20114 DATA 131, 0, 0, 131, 0, 0, 129, 0, 

0, 131, 0, 0 

20115 DATA 131, 0, 0, 198, 0, 0, 126, 0, 

0, 124, 0, 14 

20116 DATA 72, 0, 63, 64, 0, 127, 123, 2 

55, 255, 63, 255, 255 

20117 DATA 0, 0, 14, 0 

20120 REM *** SPRITE RIGHT-L PUNCH *** 

20122 DATA 0, 0, 14, 63, 255, 255, 127, 

255, 255, 64, 0, 127 

20123 DATA 72, 0, S3, 124, 0, 14, 126, 0 

, 0, 198,0,0 

20124 DATA 131, 0, 0, 131, 0, 0, 129, 0, 

0, 131, 0, 0 

20125 DATA 131, 0, 0, 198, 0, 0, 126, 0, 

0, 124, 28, 0 

20126 DATA 72, 126, 0, 

254, 0, 63, 254, 0 


64, 254, 0, 127 
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£0127 DATA 0, £8, 0, 0 

£0130 REM *** SPRITE LOSER *** 

£0132 DATA 0, 0, 0, 0, 0, 24, 0, 0, 24, 
0, 48, 8 

£0133 DATA 1, £4 1, £48, £, 49, 0, £, 1, 

0 , 2 , 1,0 

£0134 DATA 115, £53, 0, 251, £55, 0, 255 
, 254, 0, 255, £54, 0 

20135 DATA £51, 255, 0, 115, £52, 128, 2 

, 0, 64, 2, 0, 126 

20136 DATA 98, 0, £, 124, 0, 6, 96, 0, 6 

, 0 , 0 , 0 

£0137 DATA 0, 0, 0, 0 

20140 REM *** SPRITE WINNER *** 

£0142 DATA 112, 0, £24, 112, 0, £24, 32, 

£40, 64, 33, £48, 64 

£0143 DATA 35, 108, 64, 35, 108, 64, 35, 

252, 64, 19, 12, 128 

20144 DATA 9, £49, 0, 4, 242, 0, 3, 252, 
0, 3, £52, 0 

£0145 DATA 3, £52, 0, 1, £48, 0, 0, 240, 

0, 1, 152, 0 

£0146 DATA 1, 152, 0, 3, 156, 0, 1, 152, 

0, 13, 155, 0 

20147 DATA 15, 159, 0, 0 


Duel 


The classic European confrontation, in a high resolution graphics forest! 
It’s just you and your challenger—and all just because you didn’t return 
his joysticks! At least you can shoot first. .. and third... if there is a 
‘third’! 


5 REM *** DUEL *** © MICHAEL BEWS 

*** TRANSLATED BY IAN YATES *** 

10 V=53248:X =RND <-TI):POKEV+32,4:POKEV+3 
3,5:POKEV+24,23:POKE650,255:M=20 


20 Y$= 

30 PRINT"EASE WAIT WHILE USER- 
DEFINED" , , "1ICHARACTERS ARE SET UP. 

40 P0KE52,48:P0KE56,48:P0KE56334,PEEK <56 
334 > AND254:POKE 1,PEEK <1>AND251 
50 FORX=14336T015143:POKEX,PEEK <X+40960 > 
:NEXT:FORX =1TO30:READA:NEXT 


60 FORX=15144T015247:READA:POKEX,A:NEXT: 
:N*=" 


70 FORX=15243T016383:POKEX,PEEK(X+40960) 

: NEXT: T$= "| gg Ill^T BHDI V . L 

80 POKE 1,PEEK<1>0R4:P0KE56334,PEEK <56334 

>ORl:POKEV+24,<PEEK<V+24>AND240)+14 

90 F0RX=832T0894:POKEX,0:NEXT:P0KE834,3: 

POKE837,3:POKE2040,13:POKEV +27,1 

89 REM ** PRINT SCENE 

100 PR I NT " JttllUli- , - L © 1983 V,-|*- 
L I-O^"TAB (43) "| RANSLATED BY |*| 

110 PRINT"*":RESTORE:FORA=lTO15:READY,X: 
PRINTLEFT$<Y$,Y>LEFTS<X$,X >TS:NEXT 
120 PR INTLEFT3K YS, 13 >LEFT$<XS, 10)M$ ,, n ,, TA 
B < 30 ) NS "HHU" TAB < 27 > "M^HOTS: 

130 PRINTLEFTS<YS,20)"^ |OU ARE THE D 

UELLIST ON THE LEFT. »; 

140 PR INT"3 I AKE ALTERNATE SHOTS WITH 

YOUR '• 

150 PR INT"a OPPONENT UNTIL ONE SCORES 
A H IT. 
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160 PR I NT" ff ^SE ' PlficZ ' TO AIM, 'N' TO 

FIRE. 

170 PR INT"a 

II a 

IS0 PRINTLEFT*<Y$, 19> "IEBSI-^“U_^V| : gUB 

0B"dtab< 24) "i—rr /~~/\ • issr'o 

199 REM **MAIN GAME ROUTINE 

200 A=PEEK < 197): IFA< >10ANDA< >12ANDA<>39T 
HEN200 

210 IFA=10THENM=M+1:GOTO300 

220 IFA=12THENM=M-1:GOTO300 

230 POKEV+39,2 s J = 153:K = 90:P=-3*M/19:Q=6 

240 GOSUB600: S=S + 1 i PR I NT l, £SBM^^ ,l TAB (33 >S ; 

IFM<2ANDM)-2THENW=1:GOTO500 

250 GOTO400 

300 IFM<-20THENM=-20 

310 IFM>20THENM=20 

320 GOTO200 

399 REM **OPPONENT FIRE RTN 

400 FORX =1TO800:NEXTsY=INT <RND <1)*50)-25 
:POKEV+39,6:J = 153 s K=240iP=2*Y/19!Q = -6 

4 10 GOSUB600 s S=S+ 1 :PRINT ,, gaaM"TAB<33)S: 
IFY<3ANDY>-3THENN=0 '• GOTO500 
420 GOTO200 

499 REM ****END OF GAME 

500 IFUJ= 1 THEND = D + 1 : PR INTLEFT*< Y*, 19)TAB< 
13) "Ma"DLEFT$<Y$, 15)TAB< 1 1 ) " 

510 IFW=0THENO=O+1! PR INTLEFT*< Y4>,19)TAB< 
34)"Ma"OLEFT*<Y*,15)TAB<30)" 0-,//“_! 

520 S=0:M=20:POKE198,0: INPUT"ja“RESS 
s-/l " ; Z ^: GOTO 100 

599 REM *** SHOOTING ROUTINE 

600 FORC=1T027 s POKEV,K s POKEV+1,J:P0KEV+2 
1,1s K=K+Q:J=J+P:NEXT:POKEV+21,0:RETURN 

699 REM*TREE POSITIONS + CHARACTER DATA 

700 DATA3,8,4,10,5,15,3,19,4,22,5,26,7,3 
2,8,24,8,18,7,4,8,6,11,31,13,4,15,7,15 
800 DATA33,3,3,15,15,126,127,255,127,15, 

255.255.255.255.255.255.223.. 192.240 
810 DATA248,126,254,252,252,127,63,55,31 
,31,24,,,255,255,247,63,60,60,60,60,255 
820 DATA 188,248,248,240,48,,,,,,,,,,,60, 

60.60.60.60.60.60.60.8., 138,40,138,162 
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S30 DATA 160,32,248,112,112,1 19,38,250,25 
4,1 12,112,112,112,80,80,80,S0,120 
840 DATA31,14,14,238,100,95,127,14,14,14 
,14,10,10,10,10,30 



Fall Guy 


This is a game for two, in which each player directs a small figure down a 
vertical maze so that it can drop through a hole in the moving floor at the 
bottom. The figure is manoeuvred through the maze by directing 
markers up and down the outer walls and shifting horizontal sections of 
the maze to the left or right, allowing the figures to drop through to 
lower levels. The trick is to alter the internal pattern of the maze in order 
to move your own figure without at the same time opening up 
advantages for the opposition. 

1 REM*** 64 VERSION *** 

£ REM*** FALL GUY *** 

10 DIMASC18) 

£0 C = 55£96 s H=.97:M= . 7 
30 GOSUB590 
40 T=- 1:F =0 
50 GOSUB500 
60 S=10£4 

70 A1=1£3:A£=156:T1=88:T£=108 
80 I 1 = 1:I£=1:P1=T1:P£=T£ s G 1 =0 :G£=0 
90 RL=875 

100 PR INT"d"TAB<10)"HIT ANY KEY TO GO" 

110 GETZS:IFZS=""THEN110 
1 £0 PR I NT "LI" 

130 PRINTLSTAB<30)RS:PRINT 

140 GOSUB740 

150 FOR 1 = 1TO 18 

160 PR INTTAB <5)AS<I) 

170 NEXT 
180 GETZS 

190 IFZ S="A"THENLR =I 1:GOSUB830 

£00 IFZ S="D"THENLR =I 1:GOSUB830 

£10 IFZS="Z"AND I1<18THENI1 = 11 + 1:POKES+A1 

,3£ s A 1=A1+40:POKES +A1,6£:P0KEC+A1,3 

££0 IFZS="Q"AND I 1>1THENI 1 = 11-1:POKES+A1, 

3£:A1=A1-40:POKES+A1,6£:POKEC+A1 ,3 

£30 IFZS ="L"THENLR =I£:GOSUB830 

£40 IFZS=";"THENLR=I£:GOSUB830 

£50 IFZS=" = "AND I£<13THENI£=I£+1:POKES+A£ 

,3£:A£ =A£ +40:POKES +A£,60:POKEC+A£ ,3 
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260 IFZ$="£"AND 12 >1THEN12=12-1:POKES+A2, 
32:A2=A2-40:POKES+A2,60:P0KEC+A2,3 
270 POKES+RL,160:RL=RL-1:IFRL<845THENRL= 
RL +30 

280 POKES+RL,32 

290 IFPEEK<S +P1+40)=81THENPOKES +P1,32:P1 
=T1:G1=0 

300 IFPEEK <S+P2+40 > =8 1THENPOKES+ P2,32 : P2 
=T2 • G2=0 

310 POKES+P1 r 90:POKEC+P1,7:POKES+P2,87:P 
OKEC +P2,7 

320 IFPEEK <S+P1+40)=32THENP0KES+P1,32!P1 

=P 1+40:POKES+P1,90:POKEC +P1,7:G1=G1 + 1 

330 IFPEEK <S+P2+40)=32THENP0KES+P2,32:P2 

=P2+40:POKES+P2,87:P0KEC+P2,7:G2=G2+1 

340 IFP 1 >840ORP2>840THEN360 

350 GOTO 180 

360 PR I NT "\J" : PR I NT 

370 IFP1>840THENW$=L$:GOTO390 

380 W$=R$ 

390 PRINT" tk"W * u m 

400 PR INT"WAS THE BEST FALL GUY...." 

410 PR INT:PR INT 

420 PRINT" HIT 'N' FOR A NEW GRID" 

430 PR I NT:PR INT" HIT 'S’ TO STOP PLAYING 

II 

440 PRINT:PRINT" ANY OTHER KEY FOR THE S 
AME GRID" 

450 GETZ$:IFZ$ =""THEN450 
460 IFZ$="S"THENENO 

470 IFZ$="N"THENPRINT:PRINTTAB<10)"MAKIN 

G NEW GRID...":GOTO50 

480 PRINT 

490 GOTO60 

500 FOR 1 = 1 TO 18 

510 A$<I>="" 

520 FORJ =1TO30 
530 X=RND<1> 

540 IFX>HTHENA$<I>=A$<I) + "•":GOTO570 
550 IFX >MTHENA$<I)=A$<I) + " ":GOTO570 

560 A$<I>=A$<I> + "&" 

570 NEXT:NEXT 
580 RETURN 

590 PR I NT "LJ" TAB < 15) "FALL GUY " sPRINTTAB 
< 15 > "-—" 
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600 PR INT s PR INT 

610 PRINT" THIS IS A GAME FOR TWO PLAYER 
S," 

620 PR INT"WHO HAVE TO GUIDE THEIR PLAYER 
TO THE " 

630 PRINT"BOTTOM OF THE GRID BEFORE THE 
OPPONENT," 

640 PR I NT"-iAVO IDE3 MINES AS LANDING 0 

N ONE " 

650 PR INT"WILL TAKE YOU TO THE TOP AGAIN 

-ST 

660 PR INT:PR INT"ENTER YOUR NAMES"SPRINT 
670 INPUT"FIRST THE LEFT PLAYER";L$ 

680 INPUT"NOW THE RIGHT PLAYER";R$ 

690 PR INTSPRINT"^CONTROLS: UP DOWN LEF 
T RIGHT" 

700 PR INTSPRINT"PLAYER is Q 2 A 
D" 

710 PR INT"0PLAYER 2: £ = L 

II 

720 PRINTSPRINT:PRINTTAB<10)"PLEASE WAIT 

-, 3 " 

730 RETURN 
740 FOR 1 = 1T032 

750 POKES + I+83,93:POKE I+83+C ,3 
760 POKES + I+843 ,160:POKEC +I+843,4 
770 NEXT 

780 FOR I = 124TO804STEP40 

790 POKES+I,160:POKEC+I,3:POKES+I+31,160 
:POKEC +I+31 ,3 
800 NEXT 

810 POKES+A1,62SP0KEA2+S,60sPOKEC+A1 ,7:P 
OKEC +A2,7 
820 RETURN 

830 F1=F:F2=F:F3=T:F4=F:F5=F:F6=F:F7=F 
840 IFLR<>G1ANDG2<>LRTHEN1000 
850 IFZ$< >"A"ANDZ$< >"L"THEN930 
860 IFPEEK(S+P1- 1)< >160 AND PEEK<S+P1 + 1> 
=102THENF1=T 

870 IFPEEK <S+P2-1)< >160 AND PEEK<S+P2+1) 
= 102THENF2 =T 

880 IFPEEK <S+P1-1)= 160 AND<Z$= n D"OR Z$=" 


" )THENF6=T 
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890 IFPEEKCS+PS-l>=160 AND (ZS^'D” OR Z* 
">THENF7=T 

900 IF PEEK <S+P1~1> = 160 AND PEEK<S+P1 + 1> 
=102 AND LR=G1THENF3=F 

910 IF PEEK <S+P2-1) = 160 AND PEEK<S+P2+1) 
=102 AND LR=G2THENF3=F 
920 GOTO 1000 

930 IFZ$< >"D"ANDZ$<>"; "THEN1000 

940 IFPEEK<S+P1+1X>160 AND PEEK<S+P1-1> 

= 102THENF4 =T 

950 IFPEEKCS+P2+1 X>160 AND PEEK<S+P2-1> 
=102THENF5=T 

960 IFPEEK<S+P1+1 ) = 160 AND <Z*="A"OR Z$= 
"L")THEN F6=T 

970 IFPEEK <S+P2 + 1) = 160 AND <Z$="A" OR Z* 
="L">THEN F7=T 

980 IFPEEK <S+P1 + 1) = 160 AND PEEK<S+P1 -1> = 
102 AND LR =G 1 THENF3=F 

990 IFPEEK<S+P2+1 ) = 160 AND PEEK<S+P2- 1 > = 
102 AND LR=G2THENF3=F 
1000 IF NOT F3THENRETURN 

1010 IFFGTHENPOKES+P1,3£:P1=T1:G1=0:RETU 
RN 

1020 IFF7THENP0KES+P2,32:P2=T2:G2=0:RETU 
RN 

1030 IFF 1ANDLR = G1THENPOKES+P1,32:P1=P1-1 
iPOKES+P1,90 

1040 IFF2ANDLR=G2THENP0KES+P2,32:P2=P2-1 
s POKES +P2,87 

1050 IFF4ANDLR=G1THENPOKES+P1,32:P1=P1+1 
:POKES+Pl,90 

1060 IFF5ANDLR=G2THENP0KES+P£,32 • P2=P2+1 
:POKES +P2,87 

1070 PR I NT" HSl" :FORI = lTOLR:PRINT"H" ; s NEXT 
1080 IF Z$="A" ORZ$="L"THEN A$(LR > =RIGHT 
$<A$<LR>,29)+LEFT$<A*<LR),1) 

1090 IF Z$="D" ORZ$=";"THEN A$<LR>=RIGHT 
$<A$<LR>,1>+LEFT*<A*<LR>,29) 

1100 PRINTTAB <5)A$(LR) 

1110 RETURN 
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This is a multi-player game, with each player running a radio station in 
competition with other players’ stations. After registering your station 
you then get the choice of show presenters to hire. Some are high priced, 
some are cheap, and the expensive ones are better audience “draws”. 
The choice of presenters will effect how well your station will produce 
the type of show you want, since the presenters near the beginning of 
the alphabet (Aarvark, Boulder, etc.) are great for talk shows and 
news, but no good for music. Those in the middle are OK for all sorts of 
shows in an average way, so that Jetsetter and Ricky Radio can handle 
general shows, with say 50% music ,but the ace DJs you need for a pop 
radio station are to be found near the end of the alphabet, and you need 
these for high percentages of music on your programs. 

The percentage of music you are going to have on your station has to be 
entered, and this is followed by the number of radio cars you want to 
run, to be used for covering local events and thus typifying your 
community spirit. 

Your station is funded by advertising, so you have to spend money on 
promotion, to get the populace listening, and hence make advertising 
on your station desirable. 

The computer then displays the broadcast area for all the stations, 
spreading the call-sign of the stations over the map. Another annual 
review comes up and you get the chance to alter the composition of your 
station to get a greater edge. Play continues until someone conquers the 
airwaves over the South Coast, stations with no listeners dropping out 
of the game. 

2 REM RAD I0P0WER***64 VERS ION** *WALUIYN 
5 GOSUB63900 

10 D<1)=-39 sD(2) a l:D<3>=41:D<4>=40:D<5)* 
39:D<G)=-l:D<7)=-41:D<8>=-40 
20 G=US 

30 DIM NS<25>,S*<£5>,P1<25>,P£<25>,P5<25 
),P6<25>,T<25>,T*<25>,TP<25>,PR<25> 

40 DIM B$s<22 ) ,BM<22 ) , BP <22 > ,BN<2£ > 
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50 FOR I=0TO22 s READ B$<I),BM<I),BP<I>sNE 
XT I 

60 DATA ARNOLD AARVARK,1,50000 

61 DATA BRIAN BOULDER,2,30000 

62 DATA CLARA CUTHR0AT,5,45000 

63 DATA DINA DYNAMICK,10,25000 

64 DATA EDDIE EEL , 15,10000 

65 DATA FREDA FOOL ISH,20,10000 

66 DATA GERRY GULL IBLE,25,10000 

67 DATA HARRY HATEFUL,30,15000 

68 DATA IZZY IDLETALK,35,10000 

69 DATA JOLLY JETSETTER,40,25000 

70 DATA KING KNIFE,50,20000 

71 DATA MOLLY MUD,50,10000 

72 DATA NED NORMAL,50,20000 

73 DATA POLLY PERSPEX,60,10000 

74 DATA RICKY RAD 10,65,25000 

75 DATA SALLY SONIX,70,15000 

76 DATA TOMMY TAPE,75,30000 

77 DATA UNCLE USELESS,80,10000 

78 DATA VICTOR VROOM,85,20000 

79 DATA WALLY WETLOCK,90,10000 

80 DATA XANDRA XEXY,95,40000 

81 DATA YALE YESTERYEAR,98,45000 

82 DATA ZOOT ZIEGLER,99,50000 
100 DIM D*<25> 

105 FOR I=0TO25 s READ D$<I) 

106 P2<I)=100000 

107 IF D*<I>= M 4" THEN D= I - 1 : GOTO 190 

108 NEXT I 

109 DATA "++++++++++++++++++++++++++++++ 
+ + + + + +• + + + + " 


110 DATA 

" + 

STOCKBRIDGE O 


+ " 


1 11 DATA 

" + 



+ " 


112 DATA 

"+SALISBURY 

O WINCHEST 

ER 0 

+ " 


113 DATA 

" + 



+ - 


114 DATA 

" + 



+ " 


116 DATA 

" + 

TUJYFO 

RD O 

+ M 
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117 DATA "+ 

P/FLD 0+ M 

118 DATA " + 

+ " 

119 DATA M + 

+ " 

120 DATA "+ 

HAM O +" 

121 DATA "+F/BRDGE O 

+ " 

122 DATA "+ 


123 DATA 
OTON 

124 DATA 
KHAM O 

125 DATA 


+ " 
" + 
+ » 
" + 
+ " 
" + 
+ " 


" + 
+ " 
" + 
+ " 


ROMSEY O 

CHNDLRS/FORD O 

EASTLEIGH O 
B/WALT 


TOTTON O m 


m os 

wmic 


LYNDHURST O 


RINGWOOD O 


126 DATA 
AREHAM O 

127 DATA 

m 

128 DATA "+ 

m +" 

129 DATA "+ C/CHURCH O 
^P/MTH»0+" 

130 DATA H +Q B/MTH3 


B/HURST O 


135 DATA "++++++++++++++++++++++++++++++ 
+++++++++" 

180 DATA 

190 FOR 1=1TO20:READ T<I):NEXT I 

191 DATA 183,251,273,393,419,438,466,508 
,554,569,622,667,715,741,771,797 

192 DATA 821,891,918,921 

193 FOR I=1TO20•READ T*<I):NEXT I:FOR 1= 
0TO19 s READ TP <I)!NEXT I 

194 DATA STOCKBRIDGE SALISBURY,UJINCHESTE 
R ,TL1YFORD ,ROMSEY,PETERSF IELD 

195 DATA CHANDLERS FORD,EASTLEIGH,BI SHOP 
S WALTHAM,FORDINGBRIDGE,TOTTON 

196 DATA SOUTHAMPTON,WICKHAM,LYNDHURST,R 
INGWOOD,FAREHAM,BROCKENHURST 

197 DATA CHRISTCHURCH,PORTSMOUTH,BOURNEM 
OUTH,1,3,4,2,2,2,1,2,1,1,1 
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198 DATA 5,1 , 1 ,£,£, 1 ,1 ,5,5 
£00 REM MAP DISPLAY 
£0£ POKEUG,U6!POKEUB,UF 
£85 PRINT " LMMI " 

£86 POKEUG,U3:PRINTU4$; 

£10 FOR I=0TOD:PRINTD^<I);:NEXT:PRINT 
££0 POKE G+999,43!POKEUC +999,U4 
£50 FOR I=0TO£5 : IF N$<I>="" THEN £70 
£55 A=ASC<LEFT*<S*<I ) , 1 >>+l£9-65 
£60 POKE G+T < I ) , A ! POKEUC+T( I >,U6 
£70 NEXT I 

300 PRINTU£$;"33 PRESS SPACE KEY FOR AUD 
IENCE REACTION " ; 

30£ PR INT"a PRESS ANY OTHER KEY TO SPEAK 
TO ME 

310 GET A$:IF A$="" THEN 310 
315 IF AT=" "THEN 700 
3£0 GOSUB5008 
699 GOTO£00 

708 REM GOSUB DISPLAY REACH ON MAP 
70 1 POKEUG,UF:POKEUB,U4:PR INTUE$; 

70£ PR INT "LJHAS EVERYONE DONE THEIR ANNUA 
L PROGRAMMEREVIEUJ ?<Y/N> 

703 GET A$: IF A$ ="" THEN 703 

704 IF A$< > " Y" THEN £00 
706 POKEUG,U6:POKEUB,UF 
710 PRINT"Lfflfl" 

715 POKEUG,U3•PR INTU4$; 

7£0 FOR I=0TOD:PRINTD$<I>;:NEXT:PRINT"g" 

730 POKE G+999,43:P0KEUC+999,U4 

780 FOR I=0TO££iIF N$(I)="" THEN 795 

790 POKE G + T<I),£18:POKEUC+T<I),U6 

795 P5 <I)=0:NEXT I 

797 QQ=1 

800 PP=0:FOR I=8T0££ 

810 IF N$<I>="" THEN 950 
815 IF P1<I)#10<QQ THEN 950 
8£0 PP=1 
8£5 PZ =T(I> 

830 DD = INT< RND <1)*8 +1 ) 

840 K=F'EEK <G+PZ +D <DD ) ) 

850 IF K =43 THEN 8£5 

85£ IF K=ASC<LEFT$<S$<I>,1))+64 THEN 930 
855 IF K<87 THEN 900 
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860 IF K =108 OR K = 87 OR K=2 18 THEN 330 
870 IF K >123 AND K<155 THEN KK=K-129 

374 FOR M=0TO22:IF S$<M)="" OR S$<M)=S$< 
I) THEN 376 

375 IF ASC(LEFT$<S$<M),1>)-65=KK THEN 88 
0 

876 NEXT Ms GOTO900 
830 P5< M) =P5( M ) - 1 

885 FOR X= 1T05 : POKE G +PZ +D < DD > ,42 : POKEUC 
+PZ +D < DD ) r U2 

886 FOR Z = 1TO50:NEXTZ s POKE G+PZ +D(DD),32 
:NEXTX:POKEUC +PZ+D <. DD) r U3 

900 POKE G+PZ+D<DD>,ASC<LEFT*<S*<I>,1>)+ 
64 

902 POKE UC+PZ+D<DD), U0 

904 PZ=PZ+D(DD):P5<I>=P5<I>+l 

910 GOTO 950 

930 PZ =PZ +D(DD) !GOTO830 

350 NEXT I 

960 QQ = QQ +1 

970 IF PP=0 THEN GOSUB30000:GOTO 1000 
980 GOTO800 

1000 PRINTUF*;"^THAT'S THE AUDIENCE REAC 
H AT THE MOMENT 

1005 PR INT"SPRESS ANY KEY FOR STATION DE 
TAILS" 

1010 GETA*:IFA*=""THEN1010 
1100 REM 

1114 FOR I=0TO22:IF S*<I>="" THEN 1118 

1116 P2 <I)=P2 <I)+P5 < I ) * 1500 

1117 POKEUG,U9:GOSUB2000 

1118 NEXT I 

1122 PR INT"STRESS ANY KEY TO RETURN TO T 
HE BASIC MAP" 

1123 GET A*:IF A* ="" THEN 1123 
1125 GOTO200 

2600 PRINTUF*"J-- 


2010 PR INTU2*"RAD IO ";S*<I)sPR INTU4*"BAS 
ED IN "T*<I> 

2020 PR I NTUF*" UJSTATI ON MANAGER :";N*<I> 
2040 PRINTU2*"gI$AUDIENCE FIGURES... 

P l d >; 

2050 PR INT"AUDIENCE APPRECIATION:"; 


P5< I ) 
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£060 PR INT "1SI V 10NEY NOW AVAILABLE. . . " ; P£ < I 
>;" POUNDS 
£061 PRINTU4*; 

£06£ FOR -J=0TO££:IF BN<J) = I THEN PRINT"P 
RESENTER...."B$<J > 

£063 NEXT J 

£070 PRINTUF$"- 


£080 PR INT"5PRESS ANY KEY FOR MORE DETAI 
LS" 

£085 GETA*: IFA4>=" "THEN£035 
£100 RETURN 

5000 REM INPUT NEW MOVE 

500£ GOSUB30000:PRINTUF$"3IS THIS A NEW 
STATION ? <Y/N> 

5003 GET A$: IF A*="" THEN 5003 

5004 IF A$="Y" THEN 5006 

5005 GOTO5030 

5006 GOSUB30000 : PR INTUF$; s INPUT" 9 aIH AT IS 
YOUR NAME PLEASE".:N$ 

5008 GOSUB30000: INPUT"aTHE NAME OF YOUR 
STATION. . . " ;S$ 

5010 FOR I=0TO£5:IF LEFT$<S$<I>,1)=LEFT$ 
<S$,1> THEN 5013 
501£ NEXT I:GOTO5015 

5813 PR INT" flSORRY BUT PLEASE CHOOSE ANOT 
HER NAME":FORI=0TO£000:NEXT I:GOTO5008 
5015 GOSUB30000 

50£0 PRINTU4$; "agaa^ADIO "S$"S. MANAGER: 

" N$ 

50££ INPUT" 93 ASED IN WHICH TOWN"JT$ 

50£3 GOSUB30000:FOR I=0TO£5:IF T*<I)=T* 

AND N$CIX> ,, "THEN 50£6 

50£4 IF T$<I>=T$ THEN 50£8 

50£6 NEXTI SPRINT"iJQSORRY BUT THAT PLACE 

IS NOT AVAILABLE" :FOR I = 1TO£500:NEXTI 

50£7 RETURN 

50£8 PRINT ,, fiBOK. CONGRATULATIONS ON A NE 
W STATION OPENING. GOOD LUCK!" 

50£9 POKEG + T<I) r £ 18:POKEUC+T<I>,U6:S*<I> 
=S$:N$<I)=N$:FOR 1 = 1TO3500:NEXTI:RETURN 
5030 PRINTUF$;:INPUT"JWHAT IS YOUR NAME 
PLEASEeMUfl-SiSS" ; N$ 

5035 IF N$="-" THEN 5030 
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5038 FOR I=0TO25:IFN$<I>=N$ THEN 5050 
5040 NEXT I i PR I NT" B30RRY BUT I HAVE NO RE 
CORD OF THAT NAME":FOR 1 = 1TO2000 s NEXTI 
5045 RETURN 

5050 POKEUG/UF:POKEUB r U3:PRINTU7$; 

5055 PRINT" fc J^AD 10 "S*( I > "■ - "T$<I> 

5060 PR I NT "gJSTATION MANAGER .... "N$< I > 
5070 PRINTU3$"########################## 
##############"; 

5080 PR INTU7$"MONEY AVAILABLE. . . "P2<I)"P 
OUNDS 

5090 PR INTU3$"a######################### 
##############"; 

5100 PRINTU9^"»THESE PRESENTERS WANT TO 
WORK FOR YOU. 

5105 PRINT"3M0. NAME 

PRICE 

5110 FOR J = 0TO22: IF BN(J><>0 THEN 5130 
5115 IF RND <1> >.45 THEN 5130 
5120 PRINT J,B$<J),TAB < 31)BP <J ) 

5130 NEXT J 

5150 PRINT"*PO YOU WANT TO HIRE ONE ?<Y/ 
N> " 

5151 GET A$: IF A$="" THEN 5151 

5152 IF A$="N" THEN 5165 

5 153 PRINT"5&Ia1HICH PRESENTER DO YOU WANT 
<100=NONE >": INPUT"NUMBER. . . ";B 

5154 IF B = 100 THEN 5165 

5155 IF B >22THEN 5150 

5156 PRINTU7*;"YOU HAVE "P2<I>"POUNDS 
5160 BN (B > = I * PR INT"HU"B$ < B)" JOINS RADIO 

■S*<I>" !" 

5162 PRINTU3*"- 


5165 P=0:PRINTU9$; 

5170 PRINT"PRESENTERS ON STATION...H":B= 
0:FOR J =0TO22: IF BN<J>=I THEN 5180 
5175 NEXT J s G0T05195 

5 180 B=1:PRINTJ,B$<J);TAB(31)BP <J > 

5185 P=P+BP(J>IG0T05175 

5195 IF B = 0 THEN PRINT"3N0 SPECIAL PRESE 
NTERS ON STATION ! "! 

5200 PRINTU7$;"KJYOUR WAGE BILL IS"P"POUN 
DS 
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5202 IF P — 0 THEN 5300 

5205 PRINT"S30 YOU WISH TO FIRE ANY OF T 
HEM CY/N)" 

5210 GET A$: IF A*="" THEN 5210 
5220 IF A$="Y" THEN 5230 
5225 GOTO5300 

5230 INPUT"WHICH ONE. . .NO. " ; N 
5232 IF N>22 THEN 5230 
5235 IFBN<N)<>ITHEN5300 
5240 BN<N)=0:P=P-BP <N) 

5250 PR INT"fl"B$(N)" LEAVES RADIO “S$<I) 
5300 P2<I>=P2<I>-P: IF P2<I)<0 THEN 5320 
5310 PR INTU3$"- 


5311 PRINTU7*"MY0U NOW HAVE"P2<I)"POUNDS 
5315 GOTO5350 

5320 PR I NT" j^YOU HAVE BANKRUPTED YOURSELF 
! " 

5325 P2<I)=P2 <I>+P 

5330 PR I NT" EJYOU THEREFORE MUST FIRE ONE 
OF THEM...":G0T05165 

5350 PRINTU3*"- 


5355 PRINTUR*"®^HAT PERCENTAGE OF YOUR O 
UTPUT IS GIVEN OVER TO MUSIC <0-100)" 
5357 INPUT R 

5360 PRINTU3*"- 


5365 PR INTUU$"KFAD 10 CARS COST 10000 EAC 
H. M 

5367 IF PR <I)=0 THEN 5370 

5368 IF RND( 1 ) > . 4 THEN PR INT"£JDNE OF YOU 
RS HAS FALLEN APART":PR<I>=PR<I)- 1 

5370 PRINT"YOU HAVE"PR< I > "RAD 10 CARS ,"N 
me I ) 

5380 INPUT"HOW MANY MORE DO YOU WANT NOW 
"; PR 

5381 IF PR +PR < I ) =0 THEN PR I NT"EJaIHAT HAVE 
YOU GOT AGAINST RADIO CARS?" 

5382 IFPR+PR< I ) >5THENPR I NT " 53COME ON NOW. 
NO ONE NEEDS MORE THAN 5":GOTO5380 

5385 PRINT"YOU NOW HAVE "PR<I)+PR"RADIO C 
ARS r "N$ <I) 

5390 P2<I)=P2<I)-PR % 10000 
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5400 IF P2 < I ) <0 THEN PRINT"^JOT ENOUGH M 
ONEY! "s P£ <I)=P£ <I> +PR*10000:GOTO5380 
5402 PR < I > =PR < I ) +PR 

5405 PR I NTU7$ "SJYOU HAVE"P£<I>"POUNDS LEF 
T 

5410 PRINTU3$"- 


5415 PRINTU5$"^H0W MUCH TO SPEND ON PROM 
OTION":INPUT PM 

5420 P2<I>=P2<I )-PM: IF P2 < I ) <0THENPRINT" 
M'iO CASH ! " :P2< I )=P2< I > +PM:G0T05415 
5600 pptk1 t |IO * ,, m ——, , ■,,,,,■■1 , ,i 

_II 

P-f-** rik'!3 BBEBBBBMEE3 

5605 PRINTUE$"S®DK. THANKYOU VERY MUCH " 
N$ < I > 

5700 P1=PM* <1+RND <1>)+PR <I)* 10000 * < 2 +RND 
<1> >+20000*RND<1> 

5710 FOR J = 0TO22:IF BN<J)OI THEN 5750 
5720 PP=ABS<R-BM<J>) 

5730 P1=P1+BP <J)/10*<100-PP) 

5750 NEXT J 

5800 PR INTU7$" SJYOUR PREVIOUS AUDIENCE FI 
GURES WERE."PI < I ) 

5810 PRINTOUT"- 


5815 Pl = INT<Pl/10000>x / 10 

5820 PR INTU5$"SJYOUR CURRENT AUDIENCE FIG 

URES ARE."P1"X" 

5830 IF P1>0 THEN 5845 

5835 PRINTUl$"a$I'M AFRAID THAT NO ONE A 
PPEARS TO LISTEN"; 

5838 PRINT"i3TO YOUR STATION AND THEREFOR 
E YOU HAVE "; 

5840 PRINT"®EEN REMOVED FROM YOUR JOB! 

n 

5841 PR INT"HgRAD10 "S$<I>" IS OFF THE AI 
R ! " 

5842 PR I NT "g§SORRY ABOUT THAT ,BUT THAT'S 
SHOW BIZ ! 

5843 S$<I) = "":N$<I> = "":P2 <I> = 100000 s PI<I 
)=0:GOTO5900 

5845 PI <I)=P1 

5850 PRINTUUS"-- 
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5855 PRINTU5$"SPADI0 "S$<I>" IS STILL ON 
AIR. . . " 

5860 PRINT"BYOUR MONEY AVAILABLE IS:"P2< 

I)"POUNDS 

5870 PR INT"H. . . WE SHALL HAVE TO SEE IaIHAT 
HAPPENS TO 

5880 PRINT"HYOUR REVENUE WHEN THE NEW FI 
GURES ARE 

5885 PRINT"STAKEN INTO ACCOUNT 

5900 PR INTU3$ " MISPRESS ANY KEY TO RETURN 

TO THE MAP" 

5910 GET A$!IF A$="" THEN 5910 
5920 RETURN 
30000 PR INT "§3 

II ■ 

r 

30010 FOR I=0TO1SPRINT" 

";:NEXT I:RETURN 

63900 REM COMMODORE 64 CLR./SOUND CODES 
63902 US=1024 ' UC=55296:UG=53281 

63904 UB=53280:UV=54296:UA=54277:UD=5427 
8:UH=54273:UL=54272 

63905 UW=54276:U0 = 0:U0$="H"= U1 = 1:U1$="M" 
;U2 =2:U2$="3" 

63906 U3 = 5:U3$="il" : U4 =6 : U4$= "3" :U5=8:U5$ 
= " " :U6=9:U6$="|g" 

63910 U7= 10 s U7$= " 0 " :U8=13:U8^= ,, il" :U9=14: 
U9$="^" :UU=4:UU$="ar' 

63915 UR=12:UR$="a" ’ UE=7:UE$ = " 0 " :UF=11:U 
F*="B":RETURN 
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Choose your moment, then swiftly thrust your sturdy blade into the 
gaping jaws of some hideous monster. Beastmaster you’ll never be, 
these nasties are definitively untameable, but swordsman you might just 
about manage. It’s all quite simple. You just have to survive and get as 
many points as possible before some hideous creature does for you. 
Maybe the Vampire Cat will get to chew on your jugular. Who can tell? 
Quick. Lunge and thrust, missed ... back to the left quickly... missed 
again ... Aaargh...! 

10 REM......SWORDSMAN.WALWYN 

12 GOSUB7000 

30 DDT<0)="YOU ARE UNHARMED AND RARING T 
0 GO,.,! 

31 DDT(1)="YOU ARE SLIGHTLY WOUNDED NOW. 

BE BRAVE ! " 

32 DDT(2 > = "YOU HAVE RECEIVED MULTIPLE LA 
DERATIONS." 

33 DDT < 3 > = " IT'S YOUR LAST CHANCE NOW. GO 
OD LUCK..." 

100 DIM VL(8 ) 

110 FORJ = 0TQ8iREADVL < J)!NEXTJ 

120 DATA 3,4,3,4,2,5,2,2,4 

150 REM VK=NUMBER OF DEAD MONSTERS 

ISO REM WK=WOUNDED LEVEL 

170 REM PK =POINTS SCORED 

180 VK=0*. WK=0:PK=0 

230 DIM V T (8 > 

210 FOR K=0TO8:READ VT<K>:NEXT 

220 DATA "GANGRENE GOAT","NORTH-SEA BOIL 

","VAMPIRE CAT" 

230 DATA "POLITICAL WORM","MAD METER-MAI 
D" ,"SCHOOL SPINACH" 

240 DATA "DANDRUFFED BEAR","RAMPANT BANK 
ER" , "PICKLED ALBATROSS" 

300 PRINTUET;"ja5WORDSMAN" 

310 PRINTU5T;"BIN THIS GAME, YOU ARE TO 
BE PUT AGAINST" 

320 PR INT"A HORDE OF TERRIFYING MONSTERS 
. YOU ARE" 
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330 PR I NT 11 ARMED ONLY WITH A SWORD.. . " 

340 PR I NT"STOUR CONTROLS ARE $4 MOVE TO 


THE LEFT" 



350 PRINT" 

J3B 

MOVE TO 

THE RIGHT" 



360 PRINT" 

35 

LUNGE WI 


TH SWORD" 

370 PR INT"HTHERE ARE TWO SWORD POSITIONS 

380 PR INT"THE FIRST TIME YOU PRESS '5', 
YOU PUT 

390 PR INT"YOUR SWORD 'ON-GUARD*. THE SEC 
OND 

400 PRINT U KEY-PRESS COMMITS YOU TO A SWO 
RD THRUST" 

410 PRINT"BSOME MONSTERS ARE HARDER TO K 
ILL THAN 

4£0 PR INT"OTHERS. THE DREADED 'SCHOOL SP 
INACH' IS" 

430 PR INT"PARTICULARLY NASTY TO MEET.... 

II 

440 PR INT"YOU GET MORE POINTS IF YOU KIL 
L THE" 

450 PR INT"MONSTER FURTHER TO THE RIGHT O 
F THE " 

4S0 PR INT"SCREEN. EACH TIME YOU WIN, YOU 
R WOUNDS 

470 PR INT"ARE SOOTHED JUST A LITTLE." 

480 PRINT" IF YOU ARE WOUNDED MORE THAN 
4 TIMES" 

490 PR INT"THEN YOU ARE DEFINITELY D E A 
D ! " 

495 PR I NT " 5PRESS ANY KEYgl" 

496 GETA^iIFA$=""THEN496 
500 DIM D$<1,4),M$<1,4,8) 

510 FOR J =0TO1s FOR I = lT04sREAD D$<J,I> 
530 NEXT I,J 

550 REM THESE DATA LINES CONTAIN COMMODO 
RE 64 COLUOR CODES 

555 REM SEE LINES 7000- FOR DETAILS 
600 DATA "SWOaiailll/-a»^a«l)>" 

602 DATA 

604 DATA /mil® " 

606 DATA millll/ >" 

610 data -a suae mm § m 
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6 12 DATA 
614 DATA 
616 DATA 
650 FOR K 
660 READ 
680 NEXT 
700 DATA 
702 DATA 
704 DATA 
706 DATA 
710 DATA 
712 DATA 
714 DATA 
716 DATA 
720 DATA 


"® m®m mmi " 

"H S 30 E 3 DA mm " 

"® mmm mibibii 

=0TO8 s FOR J =0TO1s FOR I = 1T04 
M$<J,I,K> 

I ,J,K 

"H3 ■ £!■■! >" 

"B • EliL3 V 

n HB^^m^iBBr^\swii< 11 

"a mm mm is 

HQ0DO SBBHHS 

mu fflDDO 
"H SLJL1UU SB9HI M 

,, K***HUHi*g*d: ■•be*ohhi*'to 


722 DATA 

r* n 

724 DATA 
726 DATA 

r*" 

730 DATA 
732 DATA 
734 DATA 
736 DATA 
740 DATA 
742 DATA 
744 DATA 
746 DATA 
750 DATA 
752 DATA 
754 DATA 
756 DATA 
760 DATA 
762 DATA 
764 DATA 
766 DATA 
770 DATA 
772 DATA 
774 DATA 
776 DATA 
780 DATA 

782 DATA 


'«***&MBHBI*! 3 efls ■*K*HBBBBI*^a 

HOT* * *29HM*!a*3: ®*K* 11 
OT* * *KMHI*30H: 


11 -mmmm usebbs mm 
h h Min 

"sa rnnmn 

"H mmmi *iuhhi 

"HOTfr-'HHW 11 
" HOT* v'SHI I " 

" HB*«—HIBIW" 

"SBflyrSIHI // 11 
"HH HBBBB " 

11 HB mm " 

" H EDO " 

"M ESQEDQ 11 

"HHWIiQ ogBHloo o" 

"HOTey ooHSBBHioo o" 

"M oo og$gBBBBilctio o” 

"Ml O HlflflBflflllcHoo OO" 

"m mmm i 

sbbbbi 

"OT BBBBflfll 

"HH S10OESE9 

»o*$$*$iHMUflis w. ©^gigisrapii 

< >>" 

" B*$$$$fiBHBUi*de - •■sHMBBBisa 

X X " 


mmm\ 


SIHflfll 
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784 data " @£$$$$gflBBBt$d». og^smnmc^Mi <— 
B*mnnnn<< >>" 

788 DATA " ®£$$:$$SIBBBB&£^@. lP|||||||$d + 

pnimi x x " 


790 DATA " 

IliS 

aiBBBfli 

HHBBBB 

USB 

792 DATA " 

BIBBBBI 

HBBBBI 

USB 

OGGB 

794 DATA " 

nnnn 11 

SHBfiflB 

MMWI 

HU 

796 DATA " 

8BBBBBI 

mini 

aw 


QGG8 

800 data "mm imQmmoMmmtmm" 

808 data "mMmmmmmmmMmmmwmm" 

804 data " u mmmmmmmM wmmom" 

806 data "urn mmmmfflm 

sis data n r ;□[mo auii ■ 

sis data " mmm ssia mu " 

814 DATA » mm% SDGG0 SUGG " 

816 DATtf " MEM ISIS Uli " 

880 DATA BlXcdOOpTilHmaUI^ S-sKlflflK 

> " 

882 DATA " H*jaooS*MBBBV . STIGGGnfl 9^ UBS 

IK < " 

824 DATA " Rl*200S*^lBr^^Si§ f Sh 

< " 

826 DATA " D*dOO!*lllimilll « LKMJG0>> 

I! 

830 data snomo mmmi soggd 11 

838 DATA " ^SBB SllillB 111 11 " 

634 DATA " SGGGO aOQGD MEWm " 

836 DATA " ISflfll S100O SHBBB 

840 DATA " ^QCTeaHI-g8: BHflUH " 

842 DATA ''SBoBBflBI 9-tBBHBK V 
844- DATA " BHioKgDGO IMJ: M ffi]EG0< > 11 

846 data "moMiaii mmwm/ v 

850 DATA n S iffiO SL3GB " 

858 DATA "53 JSii SBflfll 

85 4 data 11 a ;cinu smbi 

856 DATA "53 ffififl MBBBI 

860 DATA "3 ST 1 " 

868 DATA " 1 1 " 

8S4 DATA 11 g«laaW4-MilHHria W 
866 DATA "aSEM--S^BBI' ’ H 
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370 data " mmm mmm% " 

373 DATA "H ^SBI " 

874 DATA "H MEEK 

876 DATA "HH M3BE3 " 

1000 REM START OF GAME 
1005 PRINT M J H 
1100 GOSUB4000 
1300 GOTO 1000 

£750 FOR DL =1TO£000•NEXT DL:RETURN 
£760 PR 1NTU6S"THE "V$(M 
2 >" CUT YOU UP! " 

£765 FOR I=1T01500:NEXTI:RETURN 
£800 REM CLEAR TOP SCREEN 
£30£ PRINTS 

II 

£805 FOR T =1TO10 
£810 PRINT" 

II • 

/ 

£815 NEXT 
£817 PRINT"a M 
£8£0 RETURN 
£950 MR =MZ 

£960 M2 = INT <RND <1>*9): IFM2 =MRTHEN£360 
£970 RETURN 

4000 GOSUB£950:REM MONSTER BATTLE 

4001 POKEUG,U0 s POKEUB,U£:PRINTU6*; 

II 

4003 pr i nt » araaggn mxstotom 


4004 PRINT" 



4005 pr i nt u it's the ";v 

$(M2>;" ! " 

4006 printuus; (degree of 

DIFFICULTY TO KILL ="VL < M2 > " ) " 

4007 PRTNTU5$; M DD^<UIK > 
4010 M7=4:D7=£ s M3=INT(RND <1)*6+£8):D8=15 
:M6 = 4 sD6=£:M9=M3:D9 = D8 

4015 PRINTU5*;"a"TAB(££)"TOTAL POINTS"PK 
40£0 GET A3> 

40£5 IF A$="4" THEN D8 = D8-1:D7= 1 : IF D8<4 
THEN D8 =4 

4030 IF A$="6" THEN D8=D8+1:D7=2:IF D8>3 
5 THEN D8=35 
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4035 IF A$="5" THEN D7=D7+1:IF D7>3 THEN 
D7 =4:D8 = D3 +1: IF D8>35 THEN D8=35 

4035 IF A*="5" AND 07=2 THEN D7=3 

4037 PRINT"aBKIHiHI"TAB<D3>D^< 1 ,D6> 

4038 PR I NT TAB <08 )D$<0 ,D7) 

4638 D3~D8!D6=D7 

4040 IF D7 =4 THEN 4060 
4050 GOTO4085 
4060 Q7 = US + 282 + D8 

4062 PRINT ,, angWegaaa i 'TABCM9)M$<0 ,M6 ,M 2 ) 

4065 FOR 17 =0TO1 

4068 IF PEEK <07 +17 ) = 160 OR PEEK<07+17>=3 

I THEN 4090 

4070 POKE 07+17,42 
4072 NEXT 17 
4082 D7 =2 

4085 M7=M7+1:IFM7=5THENM7=1 

4036 IF RND<1>>.35 THEN M8=M8-1 
4087 PR I NT " mtmmm " TAB < M9 ) M* < 1 , M6 , M2 ) 

4038 PRINT" agMtiGfto " TAB < M8 ) M$ < 0 . M7 . MZ ) : IF 
M3<08+1 THEN 4 100 

4089 M9=M8:M6=M7:GOTO4020 

4090 F'RINTUS^; 11 LL DONE! VO 

U GOT THE "V3><MZ> 

4 091 P5 =INT < VL<MZ> *03>:VK=VK+1:WK =WK-1: I 
F WK<0 THE N WK = 0 

4092 PRINTUU*; "JOINTS FOR K ILL : "P5 : PK = P 
K + P5 s GOSUB2750 
4033 GOSUB2S00 

4094 GET 0$: IF D$< >"" THEN 4094 
4035 RETURN 
4 100 WK=WK + 1 

4102 IF WK<4THENPRINTU5$;"STRY AGAIN...” 
:GOSUB2760:GOSUB2800:GOTO4001 
4 105 PRINTU7*; 11 mmtm " : FOR 1 = 1 T05 s PR INTTA 
B <I*4 ) "OH DEAR. ..." 

4 107 POKEUB,Is FORJ =1TO200 s NEXTJI NEXTI 
4110 PRINTU5*;"EBAAAAAAAAAARGH!" 

4 120 PRINT" 5JA NO TH E R HERO BITES THE DUST. 

II 

4125 PRINTU9*.? "MTOU K ILLED "VK "MONSTERS S 
CORING " PK "RTS '• 

4 130 PR INT"H 

> a n 


ANOTHER GO? <Y/N 
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4 132 GETA*: IFA$< > "THEN4 132 
4133 GETA*:IFA45= H "THEN4133 
4 134 IFA*="Y ,, THENRUN 
4135 END 

7000 REM * :f * *: *. * * * * * * * * * * + % % * * * * * * * * * * 
7005 REM <GNLY USE THESE COLOURS> 

70.10 U0 =0 : 110$ = " B" : REM BLACK 
7020 U 1 - i s U i v j| l? : REM WHITE 
7030 U2-2iU2$ ="3"J REM DARK RED 
7048 U3 -5 - U3$= U" ! REM GREEN 
7058 U4 -S ' U4$="3" : REM DARK BLUE 
7060 U5*SsU5$=CHR$<1£9>SREM ORANGE 
7070 U6=9 2U6$= !, R" :REM BROWN 
7030 LI7=i0:U7$=="er s REM PINK 
7030 U3= 13: U3£= "■!" : REM LIGHT GREEN 
7 100 U9 -14? U3$= "L2" : REM LIGHT BLUE 
7110 UU=4 3UU$= ,, ^ H :REM FURPLE 
7 120 UR=12:'JR$= ,, a , *iREM LIGHT GREY 
7130 UE--7 J UE$-‘ ffl” s REM LIGHT YELLOW 
7 140 UF ~'ii i UF$= "B ,! : REM DARK GREY 
7288 REM SCREEN ’POKE* CODES FOR 64. 
7210 U3=1G24:REM SCREEN POKE CHARACTER 
7220 UC =552-36 i REM SCREEN POKE COLOUR 
7230 UG=53231:REM BACKGROUND COLOUR 
7240 U8=53280iREM SCREEN BORDER COLOUR 
7250 RETURN 
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This is another game with an equestrian flavour, except this time around 
you’ll require the skills of a budding Lester Piggot. There are eight 
horses in the race, and two things will happen once you have decided 
which one you want to ride. Firstly, all the other horses will gallop off at 
the start, leaving you floundering at half speed. You soon discover that 
your mount is one of those creatures that only pulls its weight when the 
finishing line is in sight and then it will go twice as fast as anything else 
on four legs. 

The second problem is that the other horses have a (cleverly computed) 
desire to crowd you out of the action. They will tend to close up in front 
of you and even steer straight at you from the side! There’s no steward 
to protect you in this race, so aim for a gap in the field and hope you will 
be fast enough to avoid trouble. Any horses colliding with each other 
are flung randomly sideways and backwards, thus losing valuable speed. 
OK, you’re under starter’s orders ... 

1 REM NEWMARKET***WALWYN***64 VERSION*** 

£ REM HORSERACE GAME 
£0 GOSUB£000 
50 GOSUB£0000 

75 REM TURN SCREEN BORDER TO GREY 

76 POKE53£80,11 

80 REM TURN SCREEN BACKGROUND TO WHITE 

81 P0KE53£81,1 

85 REM TURN COLLISION SPRITE DETECTOR TO 
ZERO 

86 POKEV +30,0 
90 PRINT"iJ H 

9£ PR INT"3" ; :FORI=0TO7:PRINT:PRINT:PRINT 
"11" I+ 1 : NEXT I 

95 FOR I=0TO£4:POKE10£4 +31 + 1*40,90:P0KE55 
£96 +31+1*40,13:NEXTI 

96 PRINT"^CONTROLSs 1=UP A = DOWN " ; 

97 INPUT n UYOUR HORSE 1 -8 " ;N 

98 IFN<1ORN >8THEN96 

99 N=N-1 

100 K=PEEK<197):M=INT(RND <1)*3): IFK=64TH 
ENK =10+1NT(RND(!)*£> *46:GOTO 103 
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10 1 IFK=560RK= 10THENM=NsGOTO 105 

102 GOTO 100 

103 IFM=NTHEN105 

104 IFX <M> >X <N>-20ANDABS <Y<M)-Y<N>)<60TH 
ENK=56: IFY<N)>Y < M )THENK =10 

105 IFK =56THENY < M)=Y<M)-3 sX<M)=X<M)-l: IF 
Y<M)<50THENY <M> =50 

106 IFK=10THENY <M)=Y<M> +3!X<M)=X<M)-1: IF 
Y<M>>225THENY <M)=225 

107 IFX <M)<30THENX <M)=30 

108 FOR I=0TO7:J =INT<RND<1> *4 + 1 >: IF I< >NTH 
EN1 12 

109 IFC =0THENJ =INT < J *.5): IFX<N> >72THENC = 

1 

110 IFC =1THENPOKE53280,2 s C=2 

111 IFC=2THENJ=J *2 

112 X <I> =X <I)+J i IFX <I>>255THENX<I>=255 

113 IFUJ=0THEN125 

1 14 I FLIAND211 THEN 1 16 

115 GOTO 125 

116 REM HORSE NUMBER 'I' IN COLLISION 

117 X < I > =X <I) -1NT<RND <1)*5+5>:Y<I>=Y<I)+ 
INT CRND <1) * 17 )-8 

118 IFX<D<30THENX< I >=30 

119 IFY<I)<50THENY<I>=50 

120 IFY<I> >225THENY<I>=225 
125 NEXTI 

150 FOR I =0TO7 s POKES/+ I *2 , X < I > : POKEV +1*2+1 
,Y< I > 

160 IFX <I> >=255THEN5000 
170 NEXTI 

200 REM SET UP CHECK FOR HORSE COLLISION 
205 W=PEEK<V+30> 

700 GOTO 100 
999 Eh© 

2000 REM INSTRUCTIONS 
2010 PRINT "LiaMEUM^RKET" 

2020 PR INT"SIN THIS HORSE-RACE GAME, YOU 
RIDE" 

2030 PR INT"ANY HORSE FROM 1-8. " 

2040 PRINT"YOU HAVE TO STEER A PATH AVOI 
DING THE" 

2050 PRINT"OTHER HORSES SINCE ANY HORSE 
IN A" 
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£060 PRINT"COLLIS ION WITH ANOTHER WILL B 
E BLOCKED" 

£070 PR I NT"AND FORCED SIDEWAYS AND BACKW 
ARDS. " 

£080 PR INT"gTEASY' , YOU MIGHT SAY... 

£090 PRINTOUT* YOUR HORSE IS A VERY SL 
OW STARTER 

£100 PRINT"AND WILL ONLY RUN AT SPEED AF 
TER THE 

£110 PR INT"SCREEN BORDER TURNS 'RED'. TH 
IS OCCURS" 

£ 1£0 PRINT"WHEN YOU HAVE RIDDEN A THIRD 
OF THE WAY" 

£130 PR INT"DOWN THE TRACK SO YOU WILL AL 
WAYS HAVE" 

£140 PRINT"OTHER HORSES IN FRONT OF YOU. 

ft 

£150 PR INT"TO MAKE IT HARDER STILL, ALL 
HORSES" 

£160 PRINT"WITHIN £0 FEET OF YOU WILL AT 
TEMPT" 

£170 PR INT"TO BLOCK YOUR PATH OR CRASH I 
NTO YOU!" 

£180 PR INT" SPUSH LETTER 'A' TO MOVE DOWN 
THE SCREEN" 

£190 PRINT"PUSH NUMBER '1' TO MOVE UP TH 
E SCREEN." 

£195 PRINT"BEWARE s ANY COURSE ALTERATION 
WILL " 

£197 PRINT"ALSO REDUCE YOUR SPEED!" 

££00 PR I NT" 13GOOD LUCK. PRESS ANY KEY TO 
START. §1" 

££10 GETA$:IFA$=""THEN££10 
£££0 RETURN 
5000 REM WINTER 

5008 PR INT"9 

U 

5003 IF I=NTHEN5007 

5005 PR INT"Si*JINNER . . - .HORSE NUMBER" I+ 1" 

B 

5006 GOTO5010 

5007 PRINT"3YOU WON! WELL DONE 

N 

5009 REM TURN HORSE ON AND OFF 
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5010 FORQ=0TO40:POKEV+21,PEEK<V+£1>-£11 
5015 POKEV+2 1 ,PEEK < V+2 1 ) +2t I 
5020 NEXTQ 

5100 PRINT» a»PIMaP RESS" 

5110 PRINT n liM ANY " 

5120 print 11 mmm &sm key " 

5130 GETA$:IFA*<>""THEN5130 
5140 GETA$:IFA$=""THEN5140 
5145 POKEV+21 ,0 
5150 RUN 

20000 V =53248 

20001 REM COMMODORE 64 HORSE SPRITE LOAD 
ING 

20002 POKEV+21,255 

20003 PR I NT "LI" 

20004 FORI=0TO7:POKE2040+I,13:NEXTI:FORI 
=0TO62:READQ:P0KE332+I,Q :NEXTI 

£0005 FOR I=0TO7 s Y <I>=50+1*25:X <I> =40:NEX 
TI 

20006 FOR I=0TO7 s READQiP0KEV+39+I,Q 

20007 POKEV+I*2 ,X< I >:POKEV+I*2+1,Y<I>:NE 
XT I 

200 10 DATA 0, 0, 0, 0, 0, 0, 0 r 0; 0, 0/ 

0 , 0 , 0 , 0 , 0 , 0 

20020 DATA 0, 0, 0, 0, 0, 0, 0, 0r 0, 6, 
0, 0, 14, 0, 0, 28 

£0030 DATA 64, 0, 53, 224, £24, 57, £48, 
63,255, 152, 31, 223, 192, 31,223,192 

20040 DATA £7, £33, 0, 40, 3, 0, 72, 2, 
128, 72, 2, 64, 144, 2, 32 

20045 REM SPRITE COLOURS DATA 
20050 DATA 0,2,5,6,3,9,4,11 
£0060 RETURN 
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This time around you’re a soccer manager whose overall proficiency 
will be judged at the end of a season. There are details of matches played 
and goals scored, points awarded, games remaining and a constantly 
changing league table. The computer will calculate the results according 
to the relative strengths of the teams, whether the game was played at 
home or away, and so on. 

If things are going badly it could be that you’ll have to intervene at the 
touchline, changing players’ positions and generally backseat booting. 

Is it going to be championship or relegation? It’s up to you and the lads. 
And the DATA statements which can be messed around with if you feel 
that we’ve been biased one way or another. 


5 REM DIVISION ONE.WALWYN 

8 6OSUB63900 

9 UM=US +200:G =US:P5=0 

10 REM GOSUB 8000 SPRINT PLAYING FIELD 

11 REM GOSUB 10000:PLAYER CHECK,BLANK,AD 
D , MOVE. 

12 REM GOSUB 12000:BALL CHECK,BLANK,ADD, 
MOVE 

13 GOSUB20000 
15 J=0 

30 DIM TZ <15,15), T$ <15), TA <15),TM(15),TD 
<15>,TT<15),TP<15>,TF<15) 

31 REM IF TZ <15,15 ) = 1 THEN THE FIXTURE H 
AS ALREADY BEEN PLAYED. 

32 REM TA <15),TM<15 > AND TDC15) ARE THE 
DIFFERENT STRENGTHS 

33 REM IN ATTACK, MIDFIELD PLAY AND DEFE 
NCE FOR EACH TEAM. 

34 REM TT(15) IS THE POINTS TOTAL. 

35 FOR 1 = 1TO 15:READ T$(I),TA<I),TM(I),TD 
<I):NEXT I 

36 DATA "LIVERPOOL",9,6,6,"MAN UTD",S,5, 
6 ,"IPSWICH",6,7,6,"ARSENAL",7,6,6 

37 DATA "STHMPTON",3,5,5,"A VILLA",6,6,5 
, " NOTTM F ,! ,9,5,5, " SWANSEA ",5,6,5 
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38 DATA "WOLVES",5,5,5,"CRYSTAL P",5,6,5 
,"TOTTENHAM",8,4,6,"NORWICH",4,5,4 
33 DATA "COVENTRY",4,4,4,"LEEDS",4,3,4," 
W BROM",8,3,4 

50 FOR X=0TO1:FOR Y=0TO9:D,Y>=Y+128-X* 
128:NEXT Y,X 

70 FOR J=1T06:READ XS<0,J),YS<0,J>:NEXT 
72 FOR J = 1T06:READ XS<1,J>,YS<1,J>:NEXT 

75 DATA 1,15,8,10,8,20,15,8,15,14,15,21 

76 DATA 33,15,32,10,32,20,24,8,24,14,24, 
21 

30 GOSUB5000 
85 GOSUB6000 
100 GOSUB3000 
105 R=0:Q=0:TI*="000000" 

110 FOR I=0TO1:FORJ =1TOG:X <I,J)=XS < I , J ) : 

Y <I, J )=YS(I,J):NEXT J,I 

120 FOR I=0TO1:FOR J=lTOS:POKE G+X<I,J)+ 
Y< I ,J>*40,D<I,J> 

125 NEXT J,I 

150 X2 =0:Y2 = 0 

152 X=0:Y=0:X1=19:Yl=15 

155 I=0:J =0 

160 ZZ*="A" 

300 K=PEEK<197):GET Z$:IF K=64 THEN X=0: 

Y = 0:MP =0:GOTO340 

301 IF Z$<>""ANDVAL<Z$)<=0 THENZZ$=Z$:GO 
TO340 

303 W=1 : I=0:PQ = ASC<ZZ*)-64: IF K=MP THEN 
W=INT<RND <1 ) *S< I,PQ)) 

304 J =PQ:MP =K: IF J<0 OR J>6 THEN ZZ$="A" 
: J = 1 

305 IF K=27THEN Y=1:X=0:GOTO330 
310 IF K =32THEN Y=-1:X=0:GOTO330 
315 IF K=56THEN X=-1:Y=0:GOTO330 
320 IF K =59 THEN X=1:Y=0:GOTO330 
330 1=0 

340 FOR L =1TOW:GOSUB 10000 

342 IF MM THEN MM=0:X2 =INT<RND <1)*2 ) :Y2 = 
INT < RND <1)*3- 1 ) :GOTO620 
344 NEXT L 

348 PR INT"li"Q; TAB<5)T$(QX) " V "T$(RX.) " 

"R 

349 PR INT"U"TAB<32)MID$(TI$,4,1.. 

T I $ , 5,2 ) 


MID$< 
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350 IF MID$<TI$,3,£>="03" THEN PR I NT "MS® 
TIME'S UP. . . " :GOTO6700 

360 PR INT"SBJglfiP LAYER TO RE-POSITION=JS"ZZ 
$ 

400 REM OPPONENT MOVE 

410 W=1 : 1 = 1:V=INT<RND<1>*6+1>: IF V=MV TH 
EN Ul= INTCRND< 1 ) *S ( I ,MV> > 

420 1 = 1s J =V;MV =J:Y=SGN<Y1-Y(I ,J>> 

422 IF V =1 AND RND<1>>.5 THEN Y=SGN<14-Y 
< I ,J> > :X=1 :UJ=1 : GOTO430 
424 X=SGN<X1-X<I,J>> 

430 FOR L=lTOW:GOSUB10000 

440 IF MM THEN MM=0:X2=-INT(RND(1>*2>:Y2 
_ =INT(RND(1>*3-1>:GOTO620 
445 NEXT L 

600 U =INT < RND < 1 >*TA (N> *VJ+1> 

620 FOR L = 1TOU 
650 GOSUB12000 

660 IF ZZ THEN ZZ =0:FOR I = 1TQ2000:NEXT I 

:GOSUB8000:GOTO 110 

690 NEXT L 

900 GOTO300 

999 END 

5000 REM START PROCEDURE AND TEAM SET UP 
5005 PRINT"iJ"UE$; :P0KEUG,U6 
5010 FOR 1 = 1TO 15 
5020 PR INTI,T$(I) 

5030 NEXT I 

5040 INPUT"MSfYQUR CHOICE OF TEAM";M 
5042 IFM<=0ORM>15THEN5040 
5045 T^<M) = ,, fl" +T$(M>+"«" 

5050 PR INT" J 
5030 RETURN 

600O REM MATCH DECISION 

6005 GOSUB7000 

6006 P=0: INPUT "MBHOUI MANY AUTO. RESULTS 
<0=MANUAL >■" ; P1: IF P1=0 THEN 6008 

6007 FOR P =1TOP 1 

6006 IF PL=2 10 THEN GOSUB7000 : PR I NT " fiUJTH 
AT 1 S THE END OF THE SEASON": Em 
60 10 G* = RND <1>*15+1:RX=RND <1>*15+1 
6020 IF Q%=RX OR TZ(QX,RX>=1 THEN 6010 
6025 TZ < QV. r R'/. > = 1 : PL =PL + 1 

6028 PRINT"- 
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6030 PR I NT" MATCH ft" PL "10. " i 

6040 PRINT" "T$<Q/0" HOME TO "T$(RX> 

6042 IF Q*=M OR R/.=M THEN 6050 
6045 IF P>0 THEN 6500 

6047 PR I NT"PRESS ANY KEY" 

6048 GET A$:IF A$="" THEN 6048 

6049 GOTO6500 

6050 PR INT"DO YOU WISH TO PLAY?<Y/N)" 
6060 GET A$:IF A$ ="" THEN 6060 

6070 IF A$="Y" THEN 6100 

6080 GOTO 6500 

6100 REM SET UP ME TO PLAY 

6105 J=QX: VJ=2 : VM= 1 s IF QY.=M THEN J=R/CVM 
=2:VJ=1 

6106 N=J 

6 110 S < 1 , 1 >=TD < J >*VJ:S <1,2)= TM< J)*VJ:S <1 
,3>=TM(J>*VJ 

6 115 SCI,6>=TA<J >*VJ:S<1,5)=TA <J)*VJ:S(1 
, 4 > =TA (J > *V J 

6120 S<0,1>=TD<M>*VM:SC0,2>=TMCM>*VM:S<0 
,3)=TM<M)*VM 

6125 SC0,6>=TACM>*VM:S<0.5)=TA(M)*VM:S<0 

,4)=TACM>*VM 

6180 GOTO 100 

6500 REM MATCH DECIDED 

6510 S%=RND<1>*20+1:TX=RND(1>*20+1:U%=RN 

DC 1 >*20+1 

6520 S =0:T=0:U =0 

6530 Q=TA <QX> -TMCRX) +SY.-TD CRX > +U%/2.5 
6540 R=TA<RY.> -TM(QX> +TX-TD (QX> 

6550 Q =INT(Q/5 >!R =INT(R/5 > 

6555 IF Q<1 THEN Q=0 

6556 IF R<1 THEN R=0 

6578 PRINT"H"T$<Q>0 "... "Q,T$CR%> "... "R 

6578 TPCQ/O =TP CQ/O + 1:TPCR/O =TPCRX) + 1: TF C 

Q'A > =TF CQ/O+Q ! TF CRX> =TF (RX> +R 

6580 IF Q >R THEN TT < Q'A > =TT C Q'A > +3 

6584 IF R >Q THEN TT C R'A > =TT < R'A > +3 

6586 IF R=Q THEN TT < Q'A > =TT < Q'A > + 1 : TT C R'A ) = 

TTCR%> + 1 

6588 IFTT < Q'A > >P5THENP5=TT<Q%> 

6589 IFTTCR/O>P5THENP5=TTCRX> 

6590 IF P THEN 6598 

6595 PRINT"HPRESS ANY KEY NHEN READY" 
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6596 GET A$:IF A$= ""THEN 6596 

6597 GOTO6600 

6598 NEXT P : PR I NT" STRESS ANY KEY WHEN R 
EADY" 

6599 GET A$s IF A$=""THEN 6599 

6600 GOTO6000 

6700 FOR 1 = 1TO3000:NEXTI 
6705 POKEUG ,U6:PRINTU7$ 

6710 PRINT"JIF YOU HAD LET ME DECIDE THE 
MATCH," 

6715 PR INT"THE SCORE WOULD HAVE BEEN.... 

II 

6780 QQ = TA < -TM < RV. > +9>:-TD < R'O + U%/2.5 

6730 RR=TA <R30 -TM<Q30 +TY.-TD (QX> 

6740 QQ = I NT < QQ/5 ) : RR= I NT (RR/5 ) 

6750 IF QQ< 1 THEN QQ=0 
6760 IF RR<1 THEN RR = 0 

6770 PR INTT:$CQ.*-0 " . . . "QQ ,T$(R^) " . . . "RR 

6775 IF Q=QQ AND R=RR THEN PR I NT" SJaJH ICH 
IS EXACTLY RIGHT !":G0T06'578 

6776 PRINT"S®pRESS ANY KEY TO CONTINUE" 

6777 GETA$:IFA$<>""THEN6777 

6778 GETA$:IFA$=""THEN6778 

6780 PRINT"H...BUT AS IT IS , THE SCORE 
IS. . . 

6790 GOTO6570 

7000 REM TABLE DISPLAY 

7003 PR INT"J";U3$; :POKEUG,U6 

7005 PR INT"TEAM"TAB < 13 >"P"TAB(17)"F"TAB < 
20 > "PTS "; TAB (27 > "BATCHES LEFT" 

7006 PRINT"__"TAB 

(27 >" dTO PLAY"210-PL 

7008 PRINTU7*; 

7010 FOR J=(P5+1>TO0STEP -1 

7020 FOR 1 = 1 TO 15 

7030 IF TT<I)=J THEN 7100 

7040 NEXT I 

7050 NEXT J 

7060 RETURN 

7 100 PR INTT$< I > ; TAB < 12 )TP < I > ; TAB ( 16 )TF ( I 
>;TAB(20)TT(I> 

7150 GOTO 7040 

8000 POKEUG ,U0 : PR I NT 11 KigMgK^ja " 114 : POKEUG 

,U3 
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80 10 FOR I=0TQ39 : PQKEUM+I ,102:POKEUM+I+76 
0,102:NEXT 

8020 FOR I = 1T013:POKEUM+I*40,230:PGKEUM + 3 
3+40*1,230:NEXT 

8030 FOR I=8TO 11:POKEUM+1*40,58:POKEUM + 39 
+40*I,58:NEXT:RETURN 

10000 A=X<I,J>+Y<I,J>*40 

10001 IF PEEK<US+A+X+Y*40>=42 THEN 16000 

10002 IF PEEK(US +A+X + Y*40>< >32 THEN RETU 

RN 

10005 IF A=0 THEN A=20000 

10010 HA =32 

10020 FOKE US + A,AH 

10025 X <I,J > =X <I,J > +X:Y <I,J >=YCI,J > + Y 
10030 AA=D< I ,J> 

10040 A = X <I, J > + Y CI, J > * 4 0 
10045 IF A =0 THEN A=20000 
10050 POKE US +A,AA 
10100 RETURN 

12000 K =PEEK(G +X1+X2 + <Y1+Y2)*40) 

12002 IF K =32 THEN 12020 
12004 IF K =58 THEN 12200 

12006 IF K =230 THEN X2 =-X2:GOTO 12000 

12003 IF K = 102 THEN Y2 = -Y2:GOTO 12000 
120 11 SY.=RND ( 1 ) *3- 1 

12012 TX=RND <1> *2: IF T%=0 THEN X2 = -X2:Y2 
=SY.: GOTO 12000: 

12014 Y2 = -Y2:X2=SY.: GOTO 12000 
12020 POKE G +X1+Y1*40,32 
12025 X1=X1+X2:Y1=Y1+Y2 
12050 POKE G+X1+Y1*40,42 
12180 RETURN 
12200 REM GOAL 
12230 POKE US+X1+Y1*40,32 
12240 X1=X1+X2:Y1=Y1+Y2 

12250 POKE US+X1+Y1*40,42 

12251 PRINT ,, aMW H ; 

12252 F0RK9=1 TO 17:POKEUB,U0:PRINTTAB(K9* 
2)U2$; "GOAL ! " 

12254 POKEUB,U3:NEXTK9 
12260 IF XI<3 AND M=QX THEN R=R+1 
12265 IF XI >36 AND M=Q Y. THEN Q=Q+1 
12270 IF XI <3 AND M=R Y. THEN Q=Q+1 
12275 IF XI >36 AND M=RX THEN R=R+1 
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1 ££30 2Z = 1 
12233 RETURN 

16000 U=INT <RND <1)*S<I,J)#2+1) 

16005 MM=1 
16010 RETURN 

20000 POKEUG,UF:PR INTUE$; "^DIVISION ONE" 
20010 PRINTU7*;"SYOU WILL BE ASKED TO CH 
OOSE A TEAM TO 

20020 PR INT"LEAD THROUGHOUT ONE SEASON. 
20030 PRINT" THERE ARE 210 MATCHES IN A 
LL - 

20035 PRINT"AND EACH TEAM PLAYS 28 MATCH 
ES SINCE 

20040 PR INT"EVERYONE PLAYS EVERYONE TWIC 
E - HOME & 

20050 PR INT"AWAY. YOU CAN EITHER PLAY A 
MATCH OR 

20060 PR INT"LET THE MACHINE CALCULATE TH 
E RESULT. 

20070 PR I NT" 13 WHEN THE NUMBER OF AUTOMA 
TIC RESULTS 

20030 PRINT"IS ENDED, A LEAGUE TABLE IS 
DRAWN. 

20062 PRINT-'S^S THE FIXTURES PROGRESS, Y 
OU WILL SEE" 

20064 PR INT"HOW MANY GAMES EACH TEAM HAS 
PLAYED, 

20066 PR INT"HOW MANY GOALS EACH TEAM HAS 
SCORED" 

20037 PR INT"AND HOW MANY POINTS FOR EACH 
TEAM." 

20088 PRINT"(3 FOR A WIN, 1 FOR A DRAW)" 

20091 PR I NT "SIM. B. WHEN YOU GET NEAR THE 
END OF THE" 

20092 PR INT"SEASON, THERE MAY BE A SLIGH 
T PAUSE" 

20093 PR INT"BETWEEN MATCHES AS THE COMPU 
TER HUNTS" 

20034 PR INT"FOR THE NEXT FIXTURE." 

20096 PR I NT " If^RESS ANY KE Y*" 

20097 GET A$:IF A$="" THEN 20097 

20100 PR I NT" LJIF YOU DECIDE TO PLAY A MAT 
CH 

20 110 PR INT"THEN YOU MAY RE-POSITION YOU 
R TEAM AS 
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201£0 PR INT"THEY PLAY. ONLY SIX FOOTBALL 
RS ARE 

20130 PR INT"SHOWN IN EACH TEAM (LETTERS 
A-F) . " 

£0 132 PR INT"YOUR TEAM ALWAYS PLAYS FROM 
LEFT TO 

20134 PR INT"RIGHT IN THE 'DARK STRIP'." 
£0136 PRINT"SrOU MAY RE-POSITION PLAYERS 
ANY TIME IN" 

£0140 PR INT"THE GAME BUT YOU HAVE NO CON 
TROL OVER" 

£0 150 PR INT"WHERE THEY KICK THE BALL! TH 
IS DEPENDS" 

20160 PR INT"UPON THE VARIOUS STRENGTHS O 
F ATTACK" 

£0170 PR INT"AND DEFENCE. IT IS QUITE USU 
AL FOR" 

£0172 PRINT"A TEAM TO SCORE AN 'OWN GOAL 

i ii 

£0177 PR I NT" ITTHE BALL MOVES FURTHER AND 
FASTER WHEN" 

£0 179 PR INT"THE MATCH IS 'AWAY' FROM HOM 
E. " 

£018£ PR INT"HTHE DURATION OF EACH MATCH 
IS 3 MINS." 

£0184 PR INT"HOLD DOWN THE LETTER OF YOUR 
PLAYER" 

£0 185 PR INT"AND WAIT FOR THE LETTER TO B 
E DISPLAYED" 

£0 136 PR INT"NEXT TO THE SFLAYER TO BE RE 
-POSITIONED." 


£0187 

PR INT"THEN PRESS 

'1' AND 

' £ ' 

FOR 

L 

EFT & 

£0183 

RIGHT" 

PRINT" AND KEYS 

' 8' AND 

'3 ' 

FOR 

D 


OWN AND UP." 

20 189 PR INT"HOLD THE KEY DOWN FOR RANDOM 
MULT I-MOVE. 

£0 134 F‘R I NT " IMPRESS ANY KEY^" 

£0135 GET A$:IF A$="" THEN £0195 
£0137 RETURN 

63300 REM COMMODORE 64 CLR/SOUND CODES 
63302 US= 1024:UC=55£96:UG=53£S1 
63934 UB =53280:UV=54£36:UA = 54£77:UD=54£7 
S:UH=54273:UL=54272 
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63905 UW=54276 : U0 =0 : U0$ = " B " : U 1 = 1 : U 1 $= " 
s U2 =2 : U2$ = " 3 " 

63906 U3 = 5:U3$="H": U4=6:U4$="3" :U5=8:U5$ 
="":U6=9:U6^="R" 

63910 U7= 10 : U7$= "®" : U8= 13 : U8$= "i| n : U9= 14 : 
U9$= "U" : IJU = 4 : UU$= 

63915 UR=12:URT="y":UE = 7:UE$ ="H":UF=11:U 
F$= "m" .-RETURN 
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Up in the wild blue yonder, you and the enemy ace are duelling above 
the trenches. Swoop down on the foe, hang on his tail, catch him 
unawares from below, with your trusty Brownings spitting leaden death. 
All good clean fun, but watch for the wraparound! 

1 REM *** SOLO DOG-FIGHT *** 

2 REM***64 VERSION*** 

5 P1=0:P2 =0:Q1=0:Q2 =0:A =0:AA =0 
10 GOSUB9000 

15 POKE808,225 : REM DISABLE RUN/STOP KEY: 

REM THIS LINE FOR TESTING 
20 GOSUB8000 
30 GOSUB7500 

900 A=1 : AA=1 :PRINT"LJ n :POKE53280,14: POKES 

3281,14:G0SUB7100 

1000 REM MAIN LOOP 

1005 IF(PEEK(53278 > =3 >THENGOSUB4000 

1007 POKES+18,0 

1010 P0KE54272,255-P1:P0KE54274,255-P1 
1015 P0KE54279,255-Q1:P0KE54281,255-Q1 
1020 POKE2040,191+A:P0KE53248,P2+256*(P2 
>255 >:P0KE53249 r P 1 

1025 IFP2>255THENP0KE53264,PEEK(53264)OR 
1:GOTO 1030 

1027 P0KE53264,PEEK(53264 >AND254 
1030 POKE2041,191+AA 

1040 POKE53250, Q2+256*(Q2 >255 >:P0KE53251 

r Q 1 

1041 IFQ2>255THENP0KE53264,PEEK(53264)OR 
2:GOTO 1050 

1042 P0KE53264,PEEK(53264)AND253 
1045 IF(PEEK(53278 > =3)THENGOSUB4000 
1050 KY=PEEK(653): IFKY=1ANDG =1THENF = 1 
1055 K2=PEEK(197 >: IFK2=5ANDG = -1THENF=2 
1060 IFP=1THENGOSUB1500 

1065 IFF >0THENGOSUB2000:KY=0:K2=0 
1OSS AA=AA-(K2=4 > + (K2=3 ) : IFAA=0THENAA=8 
1087 IFAA=9THENAA=1 

1090 A=A-(KY=4)+(KY=2>:IFA=0THENA=8 
1095 IFA =9THENA =1 



Dogfight 311 


1 1 IE Q1=Q1+E< AA):Q£ =Q£ +E < AA +8) 

1113 P1=P1+D(A >:P£=P£+D(A+8 ) 

1115 IFF 1>£40THENP1=3£ 

1 1 16 IFQ1>£40THENQ1=3£ 

1 1 17 IFP1<3£THENP1=£40 
1118 IFQ1< 3ETHENQ1=£40 
1 160 I FP£>360THENP£=£4 
1170 IFP£ < £4THENP£ =360 
1£ 10 IFQ£>360THENQ£ =£4 
1££0 I FQ£ < E4THENQE =360 
1£30 G=-G 
1£50 GOTO 1000 
1500 REM SINGLE ~!ER ~N 

1505 IFRND <1)>.8THENIFABS <P1-Q1)<70ANDAB 
S <P£-Q£)<70THENF =£ 

1510 IFRND <1)>.9THENAA=AA-1: IFAA=0THENAA 
=8 

15£0 IFRND (. 1 ) >.9THENAA=AA+1 : IFAA=9THENAA 
= 1 

1530 RETURN 
£000 REM FIRE 

£010 IFF=1THENX=P£:Y=P1:XX = F<A>:YY=F<A+8 
>:GOTO£045 

£0£0 X=Q£:Y=Q1:XX=G<AA>:YY»G<AA+8> 

£045 FORCNT=0TO8!POKES+18,33 
£050 IFX<£0ORX >3£0ORY<£0ORY>£38THEN££00 
£055 P0KE53£5£,X+£56*(X >£55 >:P0KE53£53,Y 
!X=X+XX:Y=Y+YY 

£057 IFX >£55THENP0KE53£64,PEEK < 53£64 >0R4 
!GOTO£070 

£058 P0KE53E64,PEEK<53£64>ANDES 1 
£070 C=PEEK <53£78): IFC=6ANDF=1THENG0SUB5 
100 

£075 IFC=5ANDF=£THENGOSUB5000 
£077 PR INT"3"C 
£080 POKES+18,0 
£085 NEXTCNT 

££00 POKEV+5,0:F =0;RETURN 

3040 POKEV,P£+£56* <P£ >£55 >:POKEV + 1,P1 

4000 REM CRASH 

40 10 L 1 =L1 -1:L£ =L£-1:P0KES+18,1£9 
40£0 FORT =1T08 s POKES+15,£6~T 
4040 POKEE040 ,191+T:P1 -P 1-20*(P1<£30) 
4050 POKEE041,£00-T:Q1=Q1-20* <Q1<230) 
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4055 POKEV,P2+256* <P2 >255 >:POKEV+l,P1:PO 
KEV + 2 02 +256 * < 02 >255 ) : POKEV +3 ,Q 1 
4060 NEXTT 

4 100 Q1=80:Q2=160:P1=160:P2=80:A=1 :AA=1 
4110 POKEV,P2+256*<P2>255):POKEV+1,P1:PO 
KEV+2,02+256* <02 >255 ):POKEV+3,01 


4120 

C=PEEK<53273> 


4 130 

POKES +18,0 


4150 

GOTO7100 


4900 

RETURN 


5000 

REM 


5010 

L 1 =L 1-1 


5015 

POKES +18,129 


5020 

FORT =1TOS 


5025 

POKES +15,26-T 


5030 

POKE2040,191+T:P1=P1-20 *<P1<230 > 


5040 

POKEV,P2 +256 *<P2 >255):POKEV + 1,P1 


5050 

NEXTT 


5060 

P1 = 160:P2 =30:A =1 


5065 

POKEV+2,02+256* <G2>255 >:POKEV+3, 

01 

5070 

C =PEEK < 53278) 


5075 

POKES +18,0 


5080 

GOTO7100 


5100 

L2=L2-1 


5115 

POKES+18,129 


5120 

FORT =1TOS 


5125 

POKES+15,26-T 


5130 

POKE2041,191+T:Q1=Q1-20*<Q1<230> 


5140 

POKEV+2 ,02+256* <Q2>255>:POKEV+3, 

01 

5150 

NEXTT 


5160 

01=80:02=160:AA=1 


5170 

C=PEEK<53273) 


5175 

POKES+18,0 


5180 

GOTO7100 


6000 

REM END 


6002 

POKES+4,0:POKES+11,0:POKES+18,0 


6005 

IFL 1 =0ANDL2=0THENPR I NT "ISgllMSI THE 

RE 

SULT 

IS A DRAW" 


6010 

IFLl=0ANDL2>0THENPRINT"g[^MSI PLAYER 


2 IS THE VICTOR" 

6020 IFL2 =0ANDL 1 >0THENPR I NT" PLAYER 

1 IS THE VICTOR" 

6025 POKE 198,0:FORDL =1TO2000:NEXTDL 
6030 PRINT"£M^ PRESS ANY KEY TO RESTART 
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6035 PR I NT" E3 OR 'X' TO EXIT" 

6040 GETQQ$!IFQQ$=""THEN6040 
6045 IFQQ$="X"THENPOKE808,£37:END 
6050 RUN 

7100 IFP<>£THENPRINT"g^ PLAYER LIVES "LI 
"3 COMPUTER LIVES "L£ 

7 105 IFP = £THENPRINT"^ PLAYER l.."Ll"3 
PLAYER £.."L£ 

7110 IFL1=0ORL£=0THENGOTO6000 
7500 REM -- 

7505 S =54£7£:FORT = 0TO£8:PQKES+T,0:NEXT 
7510 POKES+1,3:P0KES+5,9!POKES+6,£40 s POK 
ES+4,97iPOKES+£,1£8:POKES+3,16 
75 15 POKES + 8,3sPOKES +1£,9 s POKES+13,£40:P 
OKES+11,97 

75£0 POKES+15,18:POKES+13,9:POKES+£0,£39 
75£5 POKES +£4,15 
7530 RETURN 

8000 PR INT"LA DOG-FIGHT DUEL" 

S00£ PRINT" -" 

8005 PRINT"KB1THIS GAME CAN BE PLAYED WIT 
H ONE OR TWO PLAYERS©" 

8010 PR INT"HI .THE SINGLE PLAYER OPTION W 
ILL MATCH YOU AGAINST A IR-COMMODORE "; 
801£ PR INT"HINDENBERG, THE DREADED FIG 
HTER ACE WHO ALREADY HAS 64 NOTCHES "; 

8014 PRINT" ON HIS JOYSTICK" 

8015 PR I NT" . THE TWO PLAYER OPTION IS 

A DUEL TO THE DEATH "J 

80 17 PR INT"BETWEEN TWO YOUNG PILOTS WHO 
IN MORE PEACEFUL TIMES ■; 

8019 PR INT"MAY WELL BE FRIENDS" 

80£0 INPUT"0ESCHOQSE YOUR PATH TO GLORY" 
; P 

80£5 I FP < 1 ORP >£THENPR I NT " rm " ; : GOTO80£0 
3040 PR I NT "kin" :POKE53£30,1 : P0KE53£8 1 , 1 
3045 PRINT" _" 

3050 PRINT" PLAYER CONTROLS 

3051 PRINT" - 

305£ PR INT:PR INT"H PLAYER 1 3 

PLAYER £" 

8053 PRINT" a - m — 

-II 

8055 PRINT"!! CTRL = UP 3 FI 

= UP" 
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8060 PR INT 

CBM = DOWN 

a 

F7 

= DOWN" 




8070 PR INT"3 

SHIFT = FIRE 

a 

F3 


= FIRE" 

8110 PRINT:PRINT:PRINT"a PLAYER 1 FLIES 
IN THE BLUE AIRCRAFT" 

81£0 PR INTs PR INT"a PLAYER 2 FLIES IN THE 
RED AIRCRAFT" 

8130 IFP=1THENPRINT"H THE COMPUTER I 

S PLAYER 2" 

8150 PR I NT: PR I NT: PR I NT s PR I NT " □ £} PRE 

SS ANY KEY TO START B" 

8160 GETWW*: IFWW$= H "THEN8 160 
8170 RETURN 
8998 STOP 

9000 REM READ DATA 

9030 DIMD(16), E <16), F <16), G <16) 

9040 G =1 

9050 P1=160:P2=80!Q1=80:Q2=160:A=1:AA=1 

9070 RESTORE:FORX=lTO16 

9080 READNsD(X > =N 

9090 READNs E <X)=N 

9100 NEXTX!F =0 

9110 DATA0,0,-8,-8,-8,-8,-8,-8,0,0,8,8,8 
r S ,8 ,8 

9115 DATA8,8,8,8,0,0,-8,-8/-8,-8,-8,-8,0 

,Q ,8 ^8 

9120 DATA8,8,0,-8,-8,-8,0,8,0,-8,-8,-8,0 

, 8 , 8,8 

9125 DATA8,8,0,-8,-8,-8,0,8,0,-8,-8,-8,0 

, 8 , 8,8 

9130 FORX=1 TO 16:READNiF <X ) = NsNEXTX 
9 135 FORX=1TO16sREADNs G(X)=NsNEXTX 
9150 REM READ SPRITE DATA 

9160 V=53248:POKE2040,192:P0KEV+21,7:P0K 
EV +39,6iPOKE2041,192:POKEV+40,2 
9200 FORT=0TO511:READX:POKE 12288+T,X:NEX 
TT 

9290 L1=5:L2 =5 

9300 FORT=0TO63:POKE832+T,0:NEXTTsPQKE86 
0,24iP0KE863,60:P0KE863,60:POKE2042,13 
9310 P0KES66,24s POKEV + 41,0 
9999 RETURN 

10010 REM *** SPRITE PLANE A *** 
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100 1£ DATA 0, 0, 0 , 0, 0 , 0, 0, 0, 0 , 0, 
0 , 0 

10013 DATA 0, 0 , 0 , 0, 0 , 0, 64, 15, £54 

, 96, £, 16 

10014 DATA 11£, £, 17, 11£, 15, £49, £55 

, £55, £55, 1£7, £55, £49 

10015 DATA 16, 8, 33, 3£, 63, £40, 0, 0, 
3£, 0, 0, 48 

10016 DATA 0, 0, 7£, 0, 0, 48, 0, 0, 0, 

0 , 0 , 0 

10017 DATA 0, 0, 0, 0 

100£0 REM *** SPRITE PLANE B *** 

100££ DATA 0, 0, 0, 0, 0, 3£, 0, 1, 16, 

0r £, 3 

100£3 DATA 0, 5, £0, 0, 8, ££6, 0, 17, £ 

£4, 0, 35, 19£ 

100£4 DATA 0, 87, 136, 0, 143, 80, 0, 14 

, 38, 0, £8, 89 

100£5 DATA 0, £6, 137, 0, 49, 6, 0, 98, 

0, 31, 19£, 0 

10026 DATA 7, 1£8, 0, 3, 64, 0, 4, 64, 0 

, 0, 64, 0 

100£7 DATA 0, 0, 0, 0 

10050 REM *** SPRITE PLANE C *** 

1005£ DATA 0, £48, 0, 6, 3£, 0, 6, 3£, 0 
, 6, 11£, 96 

10053 DATA 7, £46, 144, 6, 1£7, 144, 6, 

118, 96, 6, 118, 0 

10054 DATA 6, 118, 0, 7, £46, 0, 6, 136, 

0, 6, 54, 0 

10055 DATA 0, 54, 0, 0, 48, 0, 0, 48, 0, 
0, 48, 0 

10056 DATA 0, 48, 0, 0, £48, 0, 1, £46, 

0, 3, £40, 0 

10057 DATA 0, 3£, 0, 0 

10070 REM *** SPRITE PLANE D *** 

1007£ DATA 0, £4, 0, 4, 36, 0, 8, 36, 0, 
16, 15£, 0 

10073 DATA 40, 80, 0, 70, 3£, 0, 7, 80, 

0, 71, 136, 0 

10074 DATA 43, 196, 0, 17, £34, 0, 8, £4 

0, 0, 4, 1£0, 0 

10075 DATA £, 140, 0, 1, 6, 0, 0, 131, 1 

1 £, 0, 1, 1£8 
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10076 DATA 0 , 1, 192, 0, 1, 192, 0, 1, 1 

60 , 0 , 1,0 

10077 DATA 0, 0, 0, 0 

10100 REM *** SPRITE PLANE E *** 

10102 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 1£ 

, 0 , 0 

10103 DATA 18, 0, 0, 12, 0, 0, 4, 0, 0, 

15, 252, 0 

10104 DATA 132, 16, 0, 159, 255, 254, 25 

5, £55, £55, 159, £40, 14 


10105 

DATA 136 

, 64, 14 

, 8, 64, 6, 

127 

, 2 

40, £ 

, 0, 0, 0 





10106 

DATA 0, 

0 , 0, 0, 

0 , 0 , 0 , 0 

, 0, 

0 , 

0 , 0 



* 



10107 

DATA 0, 

0 ,0,0 




10120 

REM *** 

SPRITE PLANE F *** 



10122 

DATA 0, 

0 , 0 , 0 , 

2 , 0, 0, 2 

, 32 

, 0 

, 2, 

192 





10123 

DATA 0, 

1, 224, 

0, 3, £40, 

96, 

70, 

0, 144, 140, 

0 




10 124 

DATA 145 

, 88, 0 , 

98, 48, 0, 

20 , 

1 1 

2 , 0, 

10, 241, 

0 




10 125 

DATA 17, 

234, 0, 

3, 196, 0, 

?, 

136 

,0,71, 16,0 





10126 

DATA 40, 

160, 0, 

16, 64, 0, 

8 , 

128 


, 0, 4, 0, 0 

10127 DATA 0, 0, 0, 0 

10150 REM *** PLANE G *** 


10152 DATA 

0, 0, £48, 

0 , 

0 

32, 

0 , 

0 , 

126, 0, 3, 124, 

10153 DATA 

0, 96, 0 

0 , 

96, 

0 , 

0 , 

96, 0, 0, 96, 0, 

10154 DATA 

, 3, 127, 0 

3, 

i 

96, 

0 , 

3, 

99, 0, 3, £43, 0 

10155 DATA 

3, 

1 15 

, 0 

, 3 

, 115, 0, 51, 115 


, 0, 79, £43, 0 

10156 DATA 75, 127, 0, 48, 115, 0, 0, 35 

, 0, 0, 35, 0 

10157 DATA 0, £48, 0, 0 

10170 REM *** SPRITE PLANE H *** 

10172 DATA 0, 0, 0, 0, 128, 0, 5, 128, 0 

, 3, 128, 0 

10173 DATA 3, 128, 0, 1, 128, 0, 14, 193 

, 0, 0, 96, 128 
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10174 DATA 0, 49, 64, 0, 30, 3£ , 0, 15, 

16, 0, 87, 136 

10175 DATA 0, 35, 212, 0, 17, 226, 0, 10 

, 224, 0, 4, 98 

10176 DATA 0, 10, 20, 0, 49, 8, 0, 72, 1 

6, 0, 72, 32 

10177 DATA 0, 48, 0, 0 
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This is an investment simulation in which you compete with the 
computer’s company, Spectral Investments, to acquire £1 million. 
Starting with £100,000 you must study market intelligence reports and 
buy and sell shares on the stock market. If you find a company which is 
rich in capital assets but running at a loss, you can make a bid for the 
company with a mind to distributing its assets amongst the shareholders. 
To make a takeoever bid you must attempt to buy 51 per cent of the 
shares, at which point the opposition will start bidding against you. 
Occasionally, Spectral will initiate its own takeover bids. The longer the 
bidding continues, the greater the possibility that a ‘third party’ will 
intervene. 

Ordinary shares may be bought and sold in any quantity and a regular 
review of share prices is given, together with a market ‘wire service’. If 
you want to look more closely at the performance of a particular 
company, you have the option of calling up a copy of its annual report 
which will give you information on assets, share prices, profits and other 
useful data. During each round, all the companies manufacture and 
trade their produce, and it is this activity which determines profitability. 
Frequently a company will invest in new capital equipment and this 
expenditure will cause a small drop in the share price. Don’t be too hasty 
to sell your shares when a rise in productivity might just be around the 
corner. 

1 REM***64 VERSION*** 

2 REM *** ASSET STRIPPER *** 

10 POKE53280,3iP0KE53281,1:P0KE646,6 

20 PRINT %jBa^MMl»aMa ASSET STRIPPER3 

11 

25 PRINT" PBIBiiBiBIBB -—--——» 

30 PRINT "EgM" 

40 INPUT"WHAT IS YOUR SURNAME";N$ 

50 Il\PUT"D IFF ICULTY <1,2 OR 3 ) " ; LEV 
70 PRINT l, 11 aia ,l TAB( 14) n PLEASE WAIT.” 

90 GOTO 3260 
100 PRINTS”; 

110 PR INTTAB < 1 1 ); "HACCOUNTSSi" 

140 PRINT 
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150 PRINTN$;E$ 

160 PRINT 

170 PRINT-LIQUID ASSETS M ,INT<<<CH+.005> 
* 100 >/ 100 > 

18© PRINT 
190 Q =0: Q1 =Q 
200 FOR X = 1 TO 10 
£10 Q =Q +E( X ) 

££0 IFF£<X>="C"THEN £40 
£30 Q1 *=Q 1+E <X > #D <X > 

240 NEXT 

250 PR INT"SHARES HELD ",INT<Q> 

260 PRINT 

270 PRINT"TOTAL SHARE VALUE ";INT<<Q1+.0 

05>*100)/100 

£80 PRINT 

£90 PR INT"TOTAL ASSETS "„INT<<Q1+CH+.005 
>*100>/100 
300 PRINT 

310 IF Q1+CH >S THEN £740 

320 IF Q1+CH<0 THEN £770 

330 Q3=0 

340 FOR X=1TO10 

345 IFF$ < X) = "C"THEN355 

350 Q3=Q3+ <F (X )*D <X > > 

355 NEXT 

360 IF Q3+ZXCH >S THEN £770 
370 IF Q3 +ZXCH<0 THEN £720 
380 IF T$=“X" AND CH+Q1>ZXCH+Q3 THEN £74 
0 

390 IF T$="X" AND CH+Q1<ZXCH+Q3 THEN 276 
0 

410 PRINTMSU" CLAIMS ASSETS OF ";Q3+ZXCH 
420 PRINT 

430 FORK 1 = 1TO3000iNEXTKI 
450 RETURN 

480 PR INTTAB < 10 ) ; "kiS WIRE SERV 

ICE 

490 Q =0 :Q 1 =0 
510 M<1)=ASA 
520 FORX=1TO10 

530 IF F$<X> = n C"THENPRINTC*<X>,■ JDEASED 
TRADINGS" 

540 IF F$<X)“"C"THEN 680 
560 Q=Q+1 
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570 IFBOO >A(X)ANOE (XX510000ANDF (XX510 
000 THENPRINTC$CX),"RIPE FOR TAKEOVER?" 
590 IFG(X)<1 AND W(X>>59 THENPRINTC$<X >, 
"PROFITS LOW " 

610 IFW(X)<60 THENPRINTC$(X),"HEADS FOR 
TROUBLE" 

630 IFG (X ) >5 THENPRINTC$<X>,"SET FOR GOO 
D PROFIT" 

650 IFV (X ) >0 AND V<X)>=1 THEN PRINTC3XX) 
,"ANNOUNCES ";INT<V<X>);"REDUNDANCIES" 
660 PRINT 
670 Q1=Q1+D < X) 

675 FOR 1 = 1TO500!NEXT 
680 NEXT X 

690 IFQ =0THEN T*="X" 

700 IFQ=0THEN110 
710 ASA = Q1 /Q 

780 PRINT" ALL SHARE AVERAGE "; INT< < ASA + 
.005>*100)/100 

730 IFASA >M< 1)THENPRINT"UP ";INT<<<ASA-M 
< 1 > > + .005>*100)/100 

740 IFASA<M<1> THENPRINT"DOWN ";INT<((M< 
1 ) - ASA > + .005) * 100 100 

750 IFASA >I<2 ) THENPRINT"ALL TIME HIGH"; 
760 IFASA >I<2 >THEN I(2)=ASA 
770 IFASA<I(3)THENPRINT"ALL TIME LOW 
I<3)=ASA 

780 FORK I = 1TO2000:NEXTKI 

810 RETURN 

840 FORX=1 TO 10 

850 IF F$(X)="C"THEN1010 

860 IFLEV = 1 OR LEV=2 THEN880 

870 IFF$(X>="X" AND F(X>>0 AND F(X)<5100 

00 THEN GOSUB 1110 

880 IFW<XX61 AND F<XX5 10000 THEN GOSUB 
1 1 10 

900 IFF$<X)="C"THEN 1010 

910 IFZXCH<100THEN1010 

915 IFLEV = 1 AND RND<1>>.5 THEN950 

920 F = < < ( (S/100 > *51)-F <X))*D (X ) ) 

930 IF <B<X)/100) *51 >FANDF<ZXCHANDF (XX51 
0000ANDE (XX510000ANDG (XXITHEN2620 
940 IFZXCH<100 THEN 1010 
950 IFF$ < X) = "C"THEN1010 
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955 TENTH=ZXCH/10 

960 IFU1 (X ) >60 AND GCX>>0 THENGOSUB 1040 
970 IFLEV=1THEN 1010 

980 IFUKX ) >60 ANDG <X)>1 THEN GOSUB 1040 
990 IFUKX) >60 AND G<X>>5 THEN GOSUB 1040 
1000 IFUKX)>60 AND G<X>>10THEN GOSUB 104 
0 

1010 NEXT 
1020 RETURN 

1040 IF<TENTH/D<X)>+E<X>+F<X> >L(X) THEN 
RETURN 

1050 IF F <X)<510000 AND <F(X) + <TENTH/D <X 

>)>>S/2 THEN RETURN 

1060 A<X)=A<X)+TENTH*1.05 

1070 ZXCH=ZXCH“TENTH 

1080 F < X ) =F < X > + INT < TENTH/D < X >) 

1090 L < X > =L < X)-INT < TENTH/D < X)) 

1100 RETURN 

1110 A<X>=A<X>-< <F(X)*D<X> >*1.05) 

1120 ZXCH=ZXCH+F<X>#D(X> 

1130 L <X > =L <X ) +F (X ) 

1140 F<X>=0 
1150 RETURN 
1180 PRINT"J"; 

1190 PR INTTAB <9); " flSHARE PRICESH" 

1200 PRINT 

12 10 PRINT" COMPANY TAB<11); "SHARE PR I 
CE ";TAB < 24 >; "UP/DOWN" 

1220 PRINT 
1230 FORX=1TO10 

1240 IFF* (X ) = " C " THENPR INTC* <X ) , " ^CLOSED 
DOUINS1" 

1250 IFF3KX)="C"THEN1310 

1260 IF INT< D < X ) ) =D < X ) THEN P$=STR$(D<X) 
> + ". 00 " 

1270 IF INT<N<X))=N<X)THEN R$=STR$(N<X> ) 

+". 00 " 

1280 IF INT(OCX)> < D < X ) THEN P*=STR*<INT< 
<D(X > + .005)* 100)/100> 

1290 IFINT( N < X )) < N < X )THEN R$=STR$<INT<<N 
<X)+■005)*100)/100) 

1300 printc*<x>;tab< 21 -len<p$>+i>;p$;tab 

<30-LEN<R3O + l>;R$ 

1310 NEXT 
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1320 PRINT" 


1380 PRINT"ALL SHARE AVERAGE ";INT<<ASA+ 
,005>*100)/100 

1390 PRINT"YOU HAVE "; INTC<CH+.005>* 100> 
/100 

1410 RETURN 

1430 INPUT"BUY HOW MANY " ; Y 

1450 IFY*D<X )>CH THEN PRINT"YOU HAVE INS 

UFFICIENT CASH ":GOTO 1430 

1470 IFY>L<X> THEN PRINT"NOT ENOUGH SHAR 
ES AVAILABLE "JGOTO1430 

1490 IFY + EOO >500000 AND E <X > <5 10000THEN 
1680 

1500 CH = CH-< Y*D <X) ) 

1510 L(X)=L<X)-Y 

1520 A<X)=(A<X)+<Y*D<X>>)*1.05 
1530 E<X)=E<X)+Y 
1540 X$="P" 

1550 RETURN 

1570 INPUT" HOW MANY DO YOU WANT TO SELL 

Y 

1590 IFY>E <X)THENPRINT"YOU DONT HOLD THA 
T MANY. "sGOTO 1570 
1610 CH=CH + < Y*D <X ) ) 

1620 L <X)=L <X > +Y 

1630 A<X)=A<X>-<<Y*D<X>*1.05)> 

1640 E <X > =E <X)-Y 
1645 X$="P" 

1650 RETURN 
1680 T$="PHASEH" 

1690 Zl*„01 

1700 PR INT"LJ"TAB <7 ) ; "TAKE OVER BID":PRIN 
T 

1710 PRINT"YOUR SHARE HOLDING IS ";INT<E 
<X)*100)/S;" PERCENT" 

1720 PR INT"CURRENT SHARE PRICE IS "; INT < 
<D<X>+.005)*100)/100 

1730 PR INT"THERE ARE ";L<X>;" AVAILABLE" 
1740 PRINT"YOU NEED ";INT(510000-ECX));" 
FOR A MAJORITY" 

1750 PRINT"AMD COST M ;INTC<<510000-E<X)) 
*D<X) + .085)* 100)/100; " AT MARKET PRICE" 
1755 PR INT"YOU HAVE "; INT<<CH+.005)* 100) 
/100 
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1756 EG=0 

1757 FORV =1T010 

1758 IFF*<X>< > H C"THENEG=EG+<F<V)*D<V)) 

1759 NEXT 

1760 IFRhO < 1 ) > . 1 THEN 1769 

1762 PR INT"THIRD PARTY WINS BID " 

1763 GOSUB2040 

1764 GOTO 1890 

1769 PR I NT" HOU1 MUCH DO YOU BID PER SHARE 
"sINPUTZ 

1810 IFZ1>ZTHEN1880 

1820 K1=A<X>+<510000*<Z+.01)) 

1822 K2= <510000-F <X)>*<Z+.01> 

1830 IFK1>K2AND(ZXCH+EG)>=K2THENZ1=Z + - 01 

1840 IFZ1>ZTHENPRINTM*;" BIDS ";INT<<Z1+ 

.005)*100)/100 

I860 IFZ1>ZTHEN1760 

1870 IFZ1<ZTHEN GOSUB1920 

1880 IFZ1>ZTHENG0SUB2190 

1890 Z1=0 

1895 Z=0 

1900 IFT$="PHASEH"THEN1540 

1910 IFT$="PHASEM"THEN1010 

1920 REM 

1930 PRINT 

1940 Z1=0 

1950 F =0 

1960 PRINT" YOU HAVE WON THE BID." 

1970 CH=CH-<Z * <510000-E <X > > > 

1980 A<X)=A<X)+<Z#<510000-E <X)> ) 

1990 E <X)=E <X) + <510000-E <X)) 

2000 L<X>=S-<E<X>+F<X>) 

20 10 PR INT"DO YOU WANT TO STRIP THIS COM 

PANY OF ITS ASSETS"; 

2020 GETY$:IFY*=""THEN2020 
2030 IFY$="N M THEhPR INT"^OB H : RETURN 
2040 PRINT:PRINT"ASSETS ARE BEING DISTRI 
BUTED AMONG THE SHARE HOLDERS." 

2050 PSH= <E <X)* 100 >/S 
2060 ZPSH= <F<X>*100 >/S 
2070 OO s B <X)/100 
2080 CH=CH+<PSH*00> 

2090 ZXCH=ZXCH+<ZPSH*00> 

2100 IFA <X > <-0THEN2140 

21 10 D <X > *=A <X >/S 
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£ 1 £0. CH=CH+<E<X> *D<X> > 

£130 ZXCH=ZXCH+ <F <X > *D <X> ) 

£140 F$<X)="C" 

£150 L <X )=0 
£160 RETURN 

£190 IFZ 1*(510000 -F < X > ) >Z XCHTHENPR I NT " J^3 
PECTRAL* S|yJ ITHDRAUISE" : RETURN 
££00 PRINTM*;" HAS WON BID." 

£££0 ZXCH=ZXCH-< <510000-F<X))*Z1) 

££30 A <X> = A<X >-< <510000-F(X))*Z1) 

££40 F <X)=F <X) + <510000-F <X ) ) 

££50 Z1=0 

££60 IFG <X)<1THENGOSUB£040 

££70 RETURN 

££90 FORX=1TO 10 

£300 IFF$<X)="C"THEN£590 

£310 V<X>=0 

£3£0 C(X)=0 

£330 IFA <X)<10000THENA<X) = 10000 
£340 J(X)=A <X)/10 
£350 C<X>=C<X>+J<X) 

£360 IFH<X><J<X>/1000THENH(X)=J<X>/1000 
£370 IFB <X >>=A<X)/£0THEN£400 
£380 C<X)=C<X>+<<A<X)/10>-B<X)> 

£390 B < X) = INT <A(X>/10> 

£400 PROD =J < X ) /10 
£410 RAN=INT <RND <1)*3555) + 1 
£4£0 IFRAN=1THENW<X >=W<X >-1 
£430 IFRAN=3THENW<X)=W<X)+1 
£440 T < X > =PROD *W< X) 

£450 C <X > =C <X)+<H<X)*5000) 

£460 PF =T<X)-C (X > 

£470 A <X > =A<X)+T<X) 

£480 A(X)=A<X)-C <X) 

£490 IFA <X > < = 10000THENV <X)=H < X > : H < X > = J < X 
>/1000 

£510 V<X)=V<X>-H(X) 

£5£0 G <X) = <PF * 100)/T<X) 

£530 SP1=D < X > 

£540 IFA <X > <10000THENA<X) = 10000 

£550 D <X > =A <X)/S 

£560 N<X)=D<X>-SP1 

£570 IFA <X)<10000THENA <X > = 10000 

£580 IFRND <1> >.9THENW<X>=W<X>+10 
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2585 IFRNDC 1 ) >.9THENWCX>=W<X>-10:REM MIS 
S PRINT? 

2590 NEXT 
2610 RETURN 
2620 PR I NT .'PRINT 
2640 T$="PHASEM" 

2660 PRINT"J"M$; " BID FOR " 

2670 PRINTC$<X>;" TAKEOVER" 

2680 Z1=D <X ) 

2690 PRINT" AT "; INT<<D<X> + .005)* 100>/10 
0;" PER SHARE" 

2700 GOTO 1710 

2740 PRINT" YOU HAVE UION" 

2750 GOTO2780 

2770 PRINTM*;" HAS WON WITH "ZXCH+Q3 
2780 PRINT:PRINT"DO YOU WANT ANOTHER GAM 
E?"; 

2790 GETV$: IFV$="Y"THENPRINT"YES":FOR I = 1 

TO 100:NEXT:RUN 

2800 IFV$=""THENGOTO2790 

2810 END 

2820 REM LOOP 

2330 GOSUB2290 

2850 GOSUB2290 

2360 GOSUB100 

2870 GOSUB480 

2890 GOSUB1180 

2900 PRINT"ENTER INITIAL OF CHOSEN COMPA 
NY OR IFBASS" 

2920 GETX$:IFX$=""THEN2920 

2930 I FX$= " P "THENPR INTTAB < 15 ) "^ASSB" :GO 

TO3240 

2940 X = 1 

2950 IFLEFT$<C$<X>,1>=X$THEN2970 

2960 X=X+1:IFX=11THEN2900 

2965 GOTO2950 

2970 IFF$ < X > = "C"THEN2900 

2930 PR I NT " LI" 

2390 PRINTC$<X>:FORK I = 1TOLENCC$<X)>:PRIN 
T" - "; :NEXT:PR INT 

3000 PR INT"LIQUID CAPITAL ",INT < < A ( X > + . 0 
05>*100>/100 

3010 PR INT"CAP ITAL EQUIPMENT ", 
+.005>*100>/100 


I NT (.(B < X) 
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3020 PR I NT" EMPLOYEES MNT(HOO) 

3030 PR INT"OVERHEADS ",I NTC<C<X> + .005)* 1 
00>/100 

3040 PR INT"PROF IT "„INT<<T<X>-C<X> + .005> 
* 100>/100 

3050 PRINT"PROF IT % OF TURNOVER ",INT<G< 
X>> 

3060 PRINT"SHARE PRICE ",INT<<D<X)+.005> 
* 100>/100 

3070 PRINT"SHARES AVAILABLE ",INT < L < X > > 
3080 PRINT"SHARES HELD BY YOU ",INT<E<X) 

> 

3030 PRINT"*/. SHARES HELD BY YOU " ,INT<<E 
<X>*100>/S> 

3100 PR INT"YOU HAVE "; INT<<CH +.005)* 100) 
/100 

3110 PRINT"- 


3120 IFECX)>=510000THENPRINT"DISPOSE OF 
ASSETS"; 

3130 IFE <X ) >=510000THENINPUTASp 
3140 IFE <X> <510000THENA$="N" 

3150 IFE<X>>=510000 AND A$="Y"THENG0SUB2 
040 

3160 IFF$<X > = "X "THENPR INT" Jg3|§UY , £3S1£LL 0 
R ^P^ASS" 

3170 IFF$(X>="X"THENGETX$:IFX$=""THEN317 
0 

3175 IFF$ <X > = "C"THENX$="P" 

3180 IFX$< >"P" AND X$<>"S" AND X$<>"B"TH 
EN2900 

3190 IFX$="B"THENGOSUB1430 
3200 IFX* = "S "THENGOSUB 1570 

3210 IFX£="P"THENPRINT"LOOK AT ANOTHER C 
OMPANY < jSYH OR " ; 

3220 IFX$="P"THENGETA^:IFA$=""THEN3220 
3225 IFX$="P"AND A$="N"THEN PR INTTAB <15) 
" JyPASS® " 

3230 IFX$="P" AND A$="Y"THEN2S30 
3240 GOSUB840 
3250 GOTO2350 
3260 REM 

3270 M$="SPECTRAL INVESTMENTS LTD." 

3280 DIMC4K10> 
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3290 FORX =1 TO 10:READC$<X):NEXT 
3300 DATA"ACME CORP.","BRN IND. ","CAPR 
A STEEL","DELTA GROUP ","ELLIOT CORP." 
3310 DATA"FORAX CHEMICALS","GNS INT. 

,"HOPE HOLDINGS", "INCE CO. 

3320 DATA"JONES & PEEKE" 

3390 X=10 

3400 DIMA < X ), B < X ), C < X >, D < X ), E < X ), F < X ), G ( 
X>,H<X>,P(X>,T<X>,I<3) 


3500 

W$= " 

3520 

DIMJCX),L<X> 

3540 

E$=" INVESTMENTS LTD." 

3550 

3=1000000 

3560 

CH = 100000 

3570 

ZXCH=CH 

3580 

AW=5000 

3590 

ASA =0 

3600 

T$="0" 

3620 

DIMM < 3) 

3630 

PT=0 

3640 

DIMNCX),UKX>,V<X> 

3680 

DIMF$<X> 

3690 

FORX=1 TO 10 

3700 

A < X ) = INT(RND <1>*S/2> + l 

3710 

D <X ) =S/A <X ) 

3720 

B ( X ) = INT(RND (. 1 )*S/10) + 1 

3730 

H<X>=B<X)/10/1000 

3740 

LKX)=60 

3750 

F$<X)="X" 

3760 

L <X > =S 

3770 

NEXT 

3780 

GOTO2820 
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A deceptively easy game. Try to find the computer’s five digit numbers 
by asking just four simple arithmetic questions. Be warned, it is very 
addictive! 

I REM *** 64 VERSION *** 

10 REM ***** FIVES ****** <C> 1983 MICHE 

AL BEUJS 

II REM CONVERTED 1983 R.D.PARRATT 
20 DIM A<5>,F$<5>,BSK4>,S*<5> 

25 GOSUB 1400 

30 POKE 53230,3:POKES3281,7 
40 GOSUB 600 

59 REM **MAIN ROUTINE 

60 PR INT" J" 

70 FOR X=1 TO 5 

60 LET A < X > = 1 + INT < RND(1 )*9) 

90 IF X=1 THEN 120 

100 FOR Y=1 TO X-1s IF A<X)=A<Y) THEN GO 
TO 30 
1 10 NEXT Y 
120 NEXT X 

130 PR I NT 11 IVES" 

YOUR QUESTIONS, ONE AT A TIME" 

145 FOR Y=1 TO 4 

150 PR INT"a"J * FOR QQ=1 TO Y + 3:PR I NT"ffl"; : 

NEXT s PR. INTY; " > " ; 

155 GOSUB 490 

157 DU=90:FR=12860:GOSUB 1500 

160 LET F$<Y>=STR*<A<P>> 

165 PRINT X£; 

170 GOSUB 530 

177 DU=90:FR=19269:GOSUB 1500 

130 PR I NT" gT .? : FOR QQM TO Y+3 : F‘R I NT" H" .: : 

NEXT: PR I NT " IMUUUH" ; B$ < Y ) } 

130 GOSUB 4S0 

192 IFSTR$<A <P >)=F$<Y)THENGOSUB1000:PR IN 
TTAB<15>; "ilSD IFFERENT LETTERED" :GOTO 190 

193 GOSUB 1000:PR INTTAB(15)/ " 


II • 


Fives 329 


194 DU =90:FR = 10£07:60SUB 1500 

195 Y> =STR$(A <P >> 

£'00 GOSUB 1000 SPRINT » ; X$; 

£05 GOSUB 1100:REM EVALUATOR 

£10 GOSUB 1000:PR INTTAB(9); "= " ; EV 

£15 DU=50:FR=1£860:FORX =1 TO 5:G0SUB 150 

0:NEXT X 

££0 NEXT Y 

£50 REM ENDING ROUTINE 
£55 PRINT"i 


£60 pptmt"M ammmiMimiBtviniJ ENTER YOUR GUES 
S AS A COMPLETE FIVE "; 

£6£ PR INT"FIGURE NUMBER" 

£64 PRINT" BFOR EXAMPLE 1£345<RETU 

RN> n 

£66 PRINT" RENTER A '?' IF YOU RES 

IGN3" 


£70 INPUT " 

mi"; x* 


£75 IF X$="?" THEN PR I NT" gm" ! : GOTO 310 
£80 I FLEN<X$) < >5 THEN PR I NT'TTl" s TAB ( 1 1 ); 
"USAGAIN! - FIVE FIGURES^i" :GOTO £60 
£90 FORX =1T05: IFVAL <MID$<X$,X,1))=A<X)TH 
EN NEXT X s GOTO 300 

£95 PR I NT "m"; TAB < 11); " SiaMO ! - TRY AGAINH 
3":GOTO£60 

300 PR I NT "HB"; TAB (£3); " ^CORRECT!^" 

310 DU=100:PR INT TAB<9>;:FORX=1T05:PRINT 
A<X>; "Bl"; :FR=10£07+600*X:GOSUB1500:NEXTX 

311 PR I NT " ttmmimma " : LETLN= 1 £ : GOSUB 1£00 
3 1 £ PRINT:PRINTTAB(8); "HPRESS <RETURN> F 
OR NEXT GAME3" 

313 PR INTTAB <8 >; "BOR ^33^ TO QUIT3" 

314 GET X*: IF X$=CHR$<13> THEN 60 

315 IF X£="Q" THEN POKE53£80,7:P0KE53£81 
,6 : PR INT"tJB" • END 

316 GOTO 314 

489 REM ****-| BOARD ENTRY 

490 GET X$:IF X$="" THEN 490 
500 P=ASC<X$> 

505 IF X*="F" THEN P=l:RETURN 
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5 10 IF X$ =" I " THEN P=2:RETURN 
515 IF X$="V" THEN P=3: RETURN 
520 IF X$="E" THEN P=4:RETURN 
525 IF XT="S" THEN P=5:RETURN 
527 GOTO 490 

530 GET X*s IF X$="" THEN 530 
540 IF X$="+" OR X$="-" OR X$="*" OR X$= 
THEN 550 
545 GOTO 530 

550 B$<Y)=X$:GOSUB 1000:PR INTTAB<15); " 

II 

570 IF Y=1 THEN RETURN 

580 FORZ = 1 TO Y-lsiF B$<Y><>B$<Z)THEN NE 
XT Z:RETURN 

535 GOSUB 1000:PR INTTAB< 15); "^ALREADY U 

SED! :GOTO 530 

600 REM * * WRUCTIONS 

6 10 PR I NT" iJfflHTHE OBJECT OF F I V E S IS 
TO CALCULATE" 

615 PR I NT"THE FIVE DIGIT NUMBER REPRESEN 
TED BY" 

6 16 PR INTTAB <15); "3F I V E SH" 

613 PRINT" ON THE SCREEN." 

620 PRINT:PR INT"3 YOU MAY DO THIS BY ASK 
ING THE COMPUTER"; 

622 PRINT" TO GIVE YOU ANSWERS TO FOUR S 
IMPLE SUMS" 

630 PRINT:PRINT"STHESE SUMS MUST BE ONE 
EACH OF THE" 

632 PR INT"FOLLOWING MATHEMATICAL FUNCTIO 
NS: " 

633 PRINT" MULTIPLICATION 

634 PRINT" ADDITION 

635 PRINT" SUBTRACTION aa-V 

636 PRINT." DIVISION 

640 PRINT:PRINT"FOR EXAMPLE: ©PRESS I+V 

3 " 

642 PRINT"AND THE COMPUTER WILL GIVE YOU 
AN ANSWER"; 

660 PRINT:PRINT"YOU NAY ASK THE QUESTION 
S IN ANY ORDER YOU WISH." 

670 PR INT:PR INTTAB(9); "©PRESS ANY KEY TO 
STARTS"; 

680 GET X$:IFX$=""THEN680 
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690 GOTO 60 

1000 PRINT"!!"; s FOR QQ = 1 TO Y + 3 : PR I NT " g" ; 
:NEXT:RETURN 

1099 REM ***EVALUATOR 

1100 LET LV=VAL CF$(Y)>:LET RV=VAL(S3K Y)) 
1110 IF B$<Y) = " + " THEN EV=LV+RV:RETURN 

1 120 IF B$(Y) = ,, - U THEN EV=LV-RV:RETURN 
1130 IF B$<Y>="*" THEN EV = LV*RV:RETURN 
1140 IF B$< Y) = THEN EV=LV/RV : RETURN 
1150 PRINT "ERROR- BAD OP IN EVALUATOR": 
STOP 

1200 FORQQ=1T0LN:PRINT" 

";:NEXTQQ:RETURN 

1399 REM ****SET UP NOISE CHIP 

1400 SC =54272 

1410 FOR L=SC TO SC+24:POKEL,0:NEXT 
1420 POKESC+5,0 
1430 POKESC+24,15 
1440 RETURN 

1499 REM ****MAKE NOISE 

1500 POKESC +6,240 

1510 HF=FR/256:POKESC+1,HF:POKESC,CHF-IN 

T < HF > ) *256 

1518 POKESC+24,15 

1520 POKESC +4,17 

1525 FOR N=1 TO DU:NEXTN 

1530 POKESC +4,16 

1535 POKESC +24,0 

1540 RETURN 



Tug-of-War 


Tug-of-War is a two player game consisting of a canyon with a rope 
stretched across the top, held by a team of three figures on either side. A 
small UFO flies overhead and each player takes turns in dropping a 
parachute from it, attempting to land on a target which appears lower 
down the screen in a random position. Every time a parachutist hits the 
target, the opposing team is pulled further towards the edge of the 
canyon and if a man topples over the precipice, the team is weakened. 
The winner is the player who succeeds in pulling all the opposing team 
over the edge of the canyon. 

5 GOSUB9000 
10 GQSUB8000 
20 GOSUB7000 

50 T=1024:MM=119:REM SO AS NOT TO POKE L 
OC ZERO 

999 REM PLAY PLAYER 1 

1000 POKET, MM: T=1024+23*40+ <RND <I>*38+1> 
s MM=PEEK <T) :POKET,91:M=0 

1005 POKES+4,32:POKES+4,33 

1010 FORF=0TO39:L=M:M=PEEK<1024+F):POKE 1 

024+F,137 

1015 POKES+1,70-F 

1020 IFL <>0THENPOKE1024+F-l,L 

1025 FORH=0TO10 : NEXT 

1030 GETA*: IFA$="A M THENPOKE1024 +F,138 : GO 
TO2000 

1040 NEXT:POKE1024+F-l,M:GOTO3000 

2000 POKE1024+F, M:POKES+4,32 

2010 FORG=1T024:L=M:PO=1024+40*G+F:M=PEE 

K CPO >:POKEPO,138:POKEPO-40 ,L 

2020 IFM=91THEN2100:REM A HIT 

2030 NEXT:POKEPO,M:GOTO3000 

2100 POKEPO,M 

2110 Y=Y-1 

2120 PRINTLEFT*KDN$,18>;LEFT$<AC*,Y>;A*< 

1>;J*;B*<l>;" ” 

2130 PRINTLEFT*<DN*,19>;LEFT*<AC*,Y>;A*< 

2 >;SP$;B^(2 >;" » 

2140 IFPEEKC1024+702><>133THEN3000:REM N 
OT FALL OFF 
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£145 POKES+4, 33 :POKES+ 4,33iPOKES+1„10 
£150 U =£1:PRINTLEFT$<DN$,1S);LEFTS<AC$,U 
+ 1 >; "_" 

£155 PRINTLEFT*<DN$,19);LEFTS<AC$,U+1);" 
" :GOSUB6000 

£160 IFTB = . 0£THENB$ < 1 > = "^FEFH" : B$<£>="S 

GHGHB" :SP$=SP$+" ": J$ = J$+"_" 

£170 I FTB = « 00£THENB$ < 1 ^"^FS" :B*<£)="$G 

H*":SP$=SP$+" ":J*> = J$ +"_" 

£180 I FTB = . 000£THENUI= 1 : GOTO6500 

£190 TB=TB/10 

£999 REM PLAY PLAYER £ 

3000 POKET,MM:T=1034+£3*40+(RND<I> *38 + 1) 

:MM=PEEK < T):POKET,91:M=0 

3005 POKES+4,33:POKES+4,33 

30 10 FORF =39TO0STEP- 1:L=M:M=PEEK<10£4+F> 

: POKE 10£4 +F , 137 

3015 POKES+1,70-39+F 

30£0 IFL <>0THENPOKE10£4 +F +1,L 

3035 FORM =0TO10:NEXT 

3030 GETA$: IFA$ ="L"THENPOKE10£4 +F,138:G0 
TO4000 

3040 NEXT:POKE1034+F + l,Ms GOTO 1000 
4000 L =M:POKES + 4 ,3£ 

4010 F0RG=1T0£4:L=M:PO=l034+40*G+F:M=PEE 

K(PO >:POKEPO, 138 :POKEPO-40,L 

4030 IFM=91THEN4100:REM HIT 

4030 NEXT:POKEPO,M:GOTO 1000 

4100 POKEPO,M 

4 110 Y =Y +1 

4130 PRINTLEFT$<DN$,18>;LEFT*<AC$,Y-1> ;" 

M ;A$<l>; j$;b*< l) 

4 130 PR INTLEFT$ <DN$,19>;LEFT*(AC*,Y-1>; " 

a*<£>;sp*;b*<£) 

4140 IFPEEK<1034+697)<>130THEN1000:REM N 
O FALL OFF 

4145 POKES+4,33:POKES + 4,33:POKES+ 1 , 10 
4150 U=18:PRINTLEFT*<ON*,18>;LEFT*<AC*,1 
6 > ; "_" 

4 155 PRINTLEFT*<DN*, 19 > .? LEFT* < AC*, 16);" 

":GOSUB6000 

4160 IFTA = . 03THENA*< 1 > = "*^BABH" :A*<£> = "£i 

CDCD«" : SP*=SP*+ " " : J*=J*+ '•_" 

4 170 IFTA=.003THENA*<1 )="^ABH" : A*<£ ) = " ££: 
Dffl" : SP*=SP*+.J*=J:* + " " 
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4 180 IFTA = . 0002THENW=2 : GOTO6500 
4190 TA=TA/10:GOTO 1000 

5999 REM * FALL OFF DRAWING 

6000 FORF = 19T024:PRINTLEFT*<DN*,F >;LEFT* 
(AC$,U); "iKLaiMNi"; 

60 10 IFF >19THENPRINTLEFT*<DN*,F-1);LEFT* 
<AC*,U>;" 

60 15 FOR I=0TO5:NEXT 

6020 NEXT:PRINTLEFT*<DN*,F >;LEFT*<AC*,U> 
; "□ BMKKLS"; 

6025 FOR I=0TO5:NEXT 

6030 printleft*cdn*,f>;left*<ac*,u>;" 

6040 RETURN 

6499 REM EOG 

6500 FORC =0TO20:POKES +1 ,10:FORJ=0TO50:NE 
XT:POKES+1,20:FORJ =0TO50:NEXT:NEXT 

6505 POKES + 4,32iPOKE198,0 

6510 PR I NT "LJaJELL DONE PLAYER " ; W; " - YOU 
WON!!" 

6520 PRINT-SSM^RESS ANY KEY TO PLAY AGAI 
N" 

6530 :GETA*:IFA*=""THEN6530 
6540 GOTO20 

6999 REM INITIALIZ 

7000 P0KE53231,6:PR INT"J":P0KE532S1,3 

7005 DN*= 

7006 AC*= 11 

lillllftllll 

70 10 AC0> = 1 19: A< 1 !> =69 : A <2 ) =68 : A <3 > =67 : A < 

4)=70:A<5>=70:A<6>=82:A<7> = 111:A<8>=111 

7020 FOR I = 1024TO 1574STEP 18 

7030 FORJ =0TG8:POKE I+J,A <J>:NEXT 

7040 FORJ=8TO0STEP- 1:POKE I+8-J+9,A<J>:NE 

XT 

7060 NEXTI 

7080 PR INTLEFT*(DN*, 20 ) ; :FOR I = 1T05:PR INT 
GR*; :NEXT:FRINTLEFT*<GR*,39); 

7085 POKE2023,102 

7090 A* < 1 > = "^BABABB" :B*C 1 > = " SEFEFEFa" : A 
*<2) = "^CDCDCDB" :B*<2 > = "^GHGHGHB" 

7095 J*="_" : SP*= " » 
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7100 F’R INTLEFT$ <DN$, 18 ) ; LEFTS<ACS, 10); AS 

< l >;js;bs< l) 

7110 PRINTLEFTSCDNS,19);LEFTS<ACS,10);AS 
<2);SPS;bs<2 > 

7120 TA=.02:TB=TA:T=0:Y=10 

7 130 S=54272:POKES+24,15sPOKES+5,15 SPOKE 
S+l,70 

7140 RETURN 

7999 REM MOVE CHARACTER GENERATOR ETC 
3000 PR I NT "PLEASE WAIT ONE MINUTE" 

8009 REM READ CHAR GEN 

8010 P0KE56334,PEEK<56334)AND254 
8020 POKE 1,PEEK<1>AND251 

8030 FOR I=0TO128:FGRJ=0TO7 

8040 POKE 14336 + I*8+J,PEEK <53248+I*8 + J) 

8050 NEXTJ,I 

8060 POKE 1,PEEK<1 >0R4:P0KE56334,PEEK <563 
34 > OR 1 

8070 P0KE53272,< PEEK<53272)AND240)OR 14 
3079 REM READ IN NEW CHARS 

8080 FOR I = 129T0142:FORJ=0TO7:READD:POKE 1 
4336+1*8+J,DSNEXTJ,I 

8100 DATA24,52,62,60,24,31,255,15,0,0,0, 
0,0,248,255,240,15,7,7,3,0,0,0,0,0 
8110 DATA 128,192,224,112,24,12,7,0,0,0,0 
,0,31,255,15,24,44,124,60,24,248 
8120 DATA255,240,0,1,3,7,14,24,43,224,24 
0,224,224,192,0,0,0,0,0 

8130 DATA 129,66,36,102,255,126,60,16,124 
,254,0,16,56,16,40,1,195,101,55 
8140 DATA27,15,7,3,128,195,166,236,152,2 
40,224,192,3,3,3,7,14,28,134,112,192 

8 150 DATA 192,192,224,1 12,56,29,14 
8160 RETURN 

9000 P0KE53281,3:POKE53280,6 

9005 PR I NT" fcJSlQ TUG-OF-WAR 

M 

9006 PR INT" gm BY PAUL STANLEYS" 

9007 PRINT" P~- - ' — -— 


9008 FOR I = 1TO15:PR INT" | 

I" * NEXT 


9009 PRINT" L 
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9010 pr i nt 11 rii * i m ri111yrrm ft simple gam 

E FOR £ PLAYERS WHO HAVE 

90£0 PR INT" HUTO WIN, NOT BY STRENGTH, BU 
T BY 

9030 PRINT » SHIRE ACT IONS. A UFO WILL FLY A 
CROSS THE 

9040 PR I NT"6M3CREEN AND A TARGET WILL AP¬ 
PEAR AT 

9050 PRINT"@MTHE BOTTOM. PLAYER 1 CAN PA 
RACHUTE 

9060 PR I NT" IHfOUT ONTO THE TARGET BY PRES 
SING 'A'. 

9070 PRINT"IMPLAYER TWO BY PRESSING 'L * . 
9080 PRINT " mm IF THE PARACHUTE LANDS 
ON TARGET 

9090 PR INT"ISI70U WILL PULL THE OTHER TEA 
M. IF ANY 

9100 PRINT"jlMEN FALL DOWN THE CANYON TH 
EN THAT 

9110 PRINT"BftgTEAM WILL FIND IT HARDER TO 
WIN 

9 1 £0 PR I NT ■■ Mp>lMHF RESS ANY KEY TO ST 
ART' 1 

9130 GETA$:IFA$=""THEN9130 
9140 RETURN 
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All right. So you’ve dealt with the worst that the galaxies can throw up. 
The Space Invaders, the asteroid belts, the nightmare timewarp tunnels, 
the vampire cats — you’ve seen it all haven’t you? Don’t you believe it! 
Things can only get worse. This time around you are faced with a 
mindless, soulless, heartless fungus .. . the invasion of the mushrooms. 
It’s all over for Earth. The mushrooms already cover half the globe and 
they’re moving in for the final kill. You are the commander of the only 
surviving security cruiser, and your laser cannons are running low. Wait 
until you see the whites of their undersides and make every shot count. 

If they hit your ship you’re finished. 

0 REM:** ENTER "Pp64£,16:S 164760" DIRECT 
BEFORE ENTERING OR LOADING THIS PROGRAM 

1 C-L =55236 : SN= 1024 : CH=2048 : MU = 54272 : V I =5 
3248:POKEV1+16,0:POKEV1+21,0:P0KE646,PEE 
K <V I+33) 

2 IFPEEK <4114X >207THENPRINTCHR$<147); :F 
OR I=0TO15:PRINTCHR$<PEEK <256*PEEK<44)+PE 
EK <43) + 16+I)); JNEXT 

3 IFPEEK <4114)< >207THENPOKE138,2:P0KE631 
, 13:P0KE632,13:P0KE256*PEEK<44)+PEEK<43) 

+ 4,144:GOTO0 

4 REM ** RESETS START OF BASIC AND WIPES 
PROGRAM, IF LOADED IN WRONG PLACE 

5 POKEVI+33,0:POKEVI+32,0:PR I NT"J"; :REM 
** CLEARS SCREEN TO ALL BLACK 

6 REM ** LISE OF ABBREVIATED COMMANDS ESS 
ENTIAL THROUGHOUT WHEN ENTERING LINES 

7 REM ** CURSOR CONTROL STRINGS: ALL REM 
S MAY BE OMITTED EXCEPT LINES 0 & 6 

3 DN$= 11 : Ar.<s="|fl 

3 GOSUB500:FORT=0TO2000:NEXT:POKEVI+24,1 
9:REM ** DISPLAYS TITLE DURING SET-UP 

10 FORI=0TO242:READJ:NEXT:FOR I=0TO2047:R 
EADJ:POKECH +I, J:NEXT:RESTORE:GOSUB750 

11 REM ** READS IN CHARACTER SET FROM DA 
TA STATEMENTS AT END OF PROGRAM THEN UDG 

12 REM ** SHORT VERSION, READING FROM RO 
M, NEXT ON THIS SIDE OF TAPE 
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13 REM ** EITHER WAY, CHARACTER SET BEST 
LOADED AT 2048 <$0800), AS HERE 

14 REM ** BUT POSSIBLE AT 14336 <$3800), 
PAGE 56, FOR SHORT VERSION, IF 644, 52 

15 REM ** & 56 ALL POKED WITH 56 TO PROT 
ECT - 12288 ($3000) RISKY, 8132 <$2000) 

16 REM ** DEFINITELY NO-GO. POKE V+24<53 
272) WITH 28 OR 31 TO USE FIRST TWO 

20 GOSUB2060:REM ** GET START VALUES 
30 G0SUB2100:REM ** GO TO INSTRUCTIONS 
3S REM ** START OF GAME LOOP 

39 REM ** VI= START OF VIDEO, MU = START 
OF SOUND, P a< CO= POS. IN SCR & COL MEM 

40 POKEV I + 1,X!P=INT<X/8)*40+INT<Y/8)+SN- 
2:CO =P+MU:POKEV1+21,1 

4 1 IFY< 25THENY = 25 

42 1FY < 256THENP0KEV1 + 16,0:POKEVI,Y 

43 IFY >304THENY = 304 

45 IFY>255THENP0KEV1+16,1:POKEVI,Y-255:R 
EM * + MOVEMENT LIMITS 

46 A$=CHR$ < 0) 

49 REM ** MOVEMENT CONTROL 

50 GETA$:IFA$=" "THENGO3UB4000:REM ** FI 
RING 

60 IF A$=" H" THENY = Y-8: IFY<25THENY=25 
70 IFA$="Ig ,, THENIFY>255THENP0KEV I + 16,1 sPO 
KEVI,Y-255 

75 IFA$="H" THENIFY<256THENP0KEVI + 16,0:PO 
KEVI ,Y 

80 IFA$=" y 1 THENY=Y + 8: IFY>304THENY = 304 
85 I FA$= " Bl" THEN IFY >255THENP0KEV 1 + 16,1 : PO 
KEVI,Y-255 

90 IFA$= "||"THENIFY<256THENP0KEV I + 16,0 : PO 
KEVI ,Y 

104 REM ** SHIP MOVEMENT 

105 IFY<255THENP0KEV1+16,0:IFY<25THENY=2 

5 

106 IFY>255THENP0KEV1+16,1:POKEVI,Y-255: 
GOTO 110 

109 POKEV I , Y 

110 POKEVI + 1,X s P=INT<X/8)*40+INT<Y/8)+SN 
-2:CO = P +MU 

120 IFPEEK<VI+31)=1THENGOSUB5000:REM ** 
COLLISION 
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130 GOSUB3000 : REM ** ADD MUSHROOMS 

135 IFY>255THENP0KEVI + 16,PEEK <V I + 16)OR 1 : 
POKEVI,Y-255:GOTO 140 

136 POKEVI ,Y 

140 POKE V I + 1 , X : P = I NT < X/8 )*40 +INT < Y/S ) +SN 
-2 : CO=P +MU 

150 GOTO40 s REM ** RESTART MAIN GAME LOOP 

499 REM ** PRINT TITLE SUB-ROUTINE <MAY 
BE OMITTED), STARTS WITH SCREEN OFF 

500 P0KE53265,11:FOR I=0TO39:POKE 1024+I ,2 
11:POKE 1984 +1,211:NEXT:FOR I = 1T023:POKE 10 
24+40*1 ,211 

501 REM ** BORDER POKED TO SCREEN ONLY, 
WITHOUT COLOUR, SO INVISIBLE 

505 POKE 1063+40*1 ,21 1 : NEXT : PR I NT " SMMDMM 
M M USD U mSS m H BRRRR HOOO £300 kM 
M" 


5 10 PRINT 11 MMat*1M 1 

ms 0 £0 0 kMM MM 

vim 

II 

0U 

U 

m 

IH 

H 

■R R 

515 PRINT"Wall M 

ms 0 £0 0 kM M M 

M 

II 

EU 

U 

mss 

S8HHH 

■RRRR 

520 PRINT"lilt! 

HO 0 £0 0 kM M 

M 

II 

OJ 

U 

m 


H 

iRR 

525 PR I NT 11 

HO 0 £0 0 kM M 

M 

II 

BJ 

U 

m 

RH 

H 

BR R 

530 print »mm A 

M 

BJJUU 

mss 


H 

HR R 


HOOO £000 kM M" 


535 PRINTLJTTT ®TTT 
[1AAA DCC-C ZY K" 


540 print »mmm 

a 

nr 

m 

3A 

A 

BC 

SS< K " 

545 PR I NT 11 man 

HM1HAAA 

nr 

®T 

S=)AA 

BC 

59<K " 

550 print" iaaai 

mmmm a 

LIT 

m 

a^ 

A 

oc 

SKK " 

555 print" iaaai 

A 

nr 

err 

a=* 

A 

DC 

sy K" 

560 PRINT n ma»E 

jnaaagaft a 

nr 

arr 

3A 

A 

BBC 


CC IK K" 

595 P0KE53265,27:FORT = 0TO2000:NEXT:REM * 
* SCREEN ON & DELAY 

600 PRINTLEFT$<DN$,13)RIGHT$<AC$,15)"SFR 
EPARING":RETURN:REM ** END OF ROUTINE 
749 REM ** DEFINE GRAPHICS: SHIP SPRITE, 
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MUSHROOM UDG, LASER & EXPLOSION SPRITES 
750 FORM=0TO62:READX:P0KE832+M,X:NEXTM 
760 POKE2040,13:POKEVI+39,5 
780 FORM=0TO7:READX:POKECH+211*8+M,X:NEX 
TM 

895 FORN=0TO6£:READX:P0KE896+N,X:NEXTN:P 
OKE204 1,14 s POKEVI+40,7 

996 FORN=0TO62:READX:POKE960+N,X:NEXTN:P 
OKE2042,15:POKEV1+41,8 

999 REM ** GRAPHICS DEFINED, LOAD MACHIN 
E CODE WHOLE SCREEN PRINT COLOUR CHANGE 

1000 FORI=0TO45:READJ:POKE704 + I,J:NEXT:P 
OKEVI + 1 ,104:POKEV1+3,120:POKEVI+5,128 

1005 REM ** ROUTINE TO ENLARGE, ENABLE & 
MOVE SPRITES ACROSS TITLE (IF USED) 

1006 REM ** IF NOT REQUIRED, OMIT END HA 
LF OF LINE 1000 (POKE VI+1...) TO 1019 

1007 REM ** AND REPLACE WITH POKE VI+21. 
.. FROM THAT LINE, TO END ROUTINE 

1008 REM ** SPRITE 6 FLASHING COLOURS, 2 
AS BACKGROUND: HIT ENABLES 1 YELLOW 

1009 REM ** 2 ORANGE & REMOVES LETTER: E 
ND OF WORD REVERSES PROCESS 

1010 POKEVI+23,7:POKEVI+29,7:FORY=0TO255 
:POKEVI,Y:POKEVI+2,Y:POKEVI+4,Y:POKEVI+3 
9,Y 

1011 POKEVI+21,5:IFY/8<140RY/8>25THENP0K 
EVI+41 ,PEEK(VI+33):FORT=0TO100:NEXT:GOTO 
1014 

1012 IFPEEK(V I+31)AND4=4THENPOKEVI+40,7: 
POKEVI+41,8:PRINTLEFT$(DN$,13)RIGHT*(AC* 

,Y/8)" "; 

1013 IFPEEK(V I+31)AND4 =4THENP0KEVI+21,7: 
FORT = 0TO50:NEXT:POKEV1+21,3:FORT=0TO50:N 
EXT 

1014 NEXT:POKEVI+16,1:FORY=0TO95:POKEVI+ 
21,0:POKEVI,Y:POKEVI+39,Y:POKEV1+21,1 

1016 FORT=0TO100:NEXT: IFY>87THENP0KEVI+2 
1,0:REM ** DISABLE ONCE OFF SCREEN 

1017 NEXT:POKEV1+16,0:POKEVI+39,5:POKEVI 
+ 40,7:POKEVI+4 1,8:FOR I=0TO5:POKEVI + I ,0:N 
EXT 

10 18 POKEVI+23,0:POKEVI+29,0:FOR I=0TQRND 
(1)#150:A=RND(1)*1000+1024:IFPEEK(A)=32T 
HENPOKEA,211 
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10 19 NEXT:P0KE646,10:SYS709:POKE 1024 ,21 1 
:FORT=0TO£000:NEXT : POKEV1+21,7:RETURN 
1020 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,0,0sREM ** SPRITE & UDG DATA 
1030 DATA3,255,192,7,255,224,15,255,240, 
170,170,85,170,170,85,15,255,240 
1040 DATA7,255,224,3,255,192,0,0,0,0,0,0 
, 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 
1045 DATA4,126,255,255,60,24,24,24 
2020 DATA©,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
,0,0 ,0 ,0,0 

2030 DATA0,24,0,0,24,0,0,24,0,0,24,0,0,2 
4,0,0,24,0,0,24,0,0,24,0 

2035 DATA©,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
,0,0 

2040 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

, 0 , 0 , 0 , 0,0 

2041 DATA0,153,0,0,90,0,0,126,0,0,60,0,0 
,60,0,0,126,0,0,90,0,0,153,0 

2042 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

, 0,0 

2043 REM ** MACHINE CODE DATA 

2045 DATA 169,224,76,199,2,169,24 1,14 1 ,23 
5,2,162,0,169,32,157,0 

2046 DATA4,157,0,5,157,0,6,157,232,6,173 
, 134,2,157,0 

2047 DATA216,157,0,217,157,0,218,157,232 
,213,202,208,241,96,0 

2050 REM ** SYS 704 CLEARS SCREEN, LOADS 
COLOUR MEM.; SYS 709 CHANGES CHAR COL. 

2051 REM ** POKE 646, PRINT CONTROL CODE 
OR PRESS COLOUR KEY BEFORE CALLING 

2060 X=48:Y=152:W=0:C=0:REM ** START VAL 
LIES 

2065 QQ=PEEK<VI+31> 

2070 RETURN 

2099 REM ** INSTRUCTIONS 

2100 PRINT"LI3 THE EARTH IS BEING ATTAC-KE 
D BY A FLEET MOF MINDLESS BUT DEADLY "; 

2 101 PR INT"MUSHROOMS. AS ^ALWAYS, YOU 
ARE ITS SOLE DEFENDER. THE ^CURSOR " ; 

2102 PR INT"KEYS WILL SHIFT YOU ABOUT & T 
HE B3PACE KEY FIRES YOUR LASER." 

2103 PRINT"H THE END IS INEVITABLE: IF Y 
OU'RE HIT gfYOU’RE DEAD. BUT TRY AND "; 
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2104 PR I NT" NOTCH UP A MEANSJSCORE BEFORE 
YOU GO." 

2105 PR INTTAB < 49)" IMPRESS ANY KEY TO PLA 
YWM" s REM ** PRINT MUSHROOMS ONE BY ONE 

2106 FORK=1TO160 :POKEMU+24,15:P0KEMU+4,1 
29iPOKEMU +5 ,3 :POKEMU + 1,35:POKEMU,80 

2107 FORT = 0TO50:NEXT:POKEMU+4,0:POKEMU+ 5 
,0: IFK< 160THENPRINT l, ©a*B ,! J 

2108 IFK/40 = I NT <K/40 )ANDK< 160THENPR I NT "El 
";:REM ** SPACE MUSHROOM LINES 

2109 IFK >159THENPOKE2023,2 11 :P0KE56295,1 
0: REM ** POKE LAST ONE TO STOP LINE FEED 
21 10 NEXTs POKE 198,0 : WA IT138,1 :PRINT" J" :R 
EM ** WAIT FOR KEY PRESS 

2120 RETURN 

2993 REM ** PRINT RANDOM MUSHROOMS ROUTI 
NE 

3000 W=INT(RND(1)*37 > 

3001 M=24 

3005 V =RND <1> *3 

3010 PRINTLEFT$<DN$,M:>RIGHT$<AC$,W> 

" :PRINTLEFT$<DN$,M>RIGHT$(AC$,W+V> 

3012 POKEMU+24,15:POKEMU+4,129:POKEMU+1, 
RND <1>*160+34:POKEMU,RND<1)*203+52 

3013 FORT = 0TO50:NEXT:POKEMU+4,0:P0KE646, 
6:SYS709:P0KE646,10:SYS709 

3015 PRINTLEFT$<DN$,25)"®|":REM ** CURSOR 
DOWN ON BOTTOM LINE SCROLLS SCREEN UP 1 

3016 IFY>255THENP0KEVI+16,1:POKEVI,Y-255 
:GOTO3018 

3017 POKEVI,Y:REM ** KEEPS SHIP SPRITE I 
N STEP WITH PRINTING 

30 18 POKEVI+1,X:P=INT<X/8)*40+INT(Y/8)+S 
N-2 sCO =P +MU:POKEV1+2 1,1 
3020 RETURN 

3939 REM ** FIRING ROUTINE 

4000 POKEVI+21,3: IFPEEK<V I + 16> = 1THENPOKE 
V I + 16,3:POKEVI+2,Y-255 

4001 IFY< 256THENP0KEV1 + 16,0:POKEVI+2,Y 
4005 P=INT<X/8)*40+INT<Y/8> +SN-2:CO=P+MU 
:FORF =56T072:POKEVI+3,F:REM ** LASER 
4010 IFPEEK(VI+31)>1THENF=72:GOSUB6000:R 
EM ** GO TO HIT & SCORE ROUTINE 

4020 NEXT:POKEMU+25,15:POKEMU+4,129:POKE 
MU+1,RND<1)*35+34:POKEMU,RND<1)*143+52 
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4060 FORT = 0TO100:NEXT:POKEMU +4,0:POKEV I + 
El,1:RETURN 

4999 REM ** COLLISION ROUTINE: REDEFINE 
ALL SPRITES TO EXPLOSION AT SHIP POS. 

5000 POKEVI+21,7:FORK =0TOE:POKE£040+K,15 
:POKEVI + 1+K *2,X:POKEVI+39 +K , 8 :NEXT 

500E IFY<£56THENP0KEVI,Y:POKEVI+2,Y-8:IF 
Y+8<£56THENF‘OKEV I +4,Y+8 

5003 IFY + 8 >E55THENP0KEV1 + 16,4:POKEVI+4,Y 
+3-E55 

5004 IFY >£55THENP0KEV1 + 16,5:POKEVI,Y-E55 

5005 IFY-8 >E55THENP0KEV1 + 16,7:POKEVI+E,Y 
-8-E55 

5006 IFY-8 < E56THENP0KEVI+£,Y-8 

5007 IFY<£56THENP0KEVI,Y 

5008 IFY + 8 < 256THENP0KEVI+4,Y + 8 

5010 REM ** EXPLOSION SHOWN, NOW SOUND, 
THEN RESET SPRITES FOR NEXT GAME 

5015 POKEMU +24,15:POKEMU+5,47:POKEMU + 4,1 
29:POKEMU +1 ,3:POKEMU,103:POKEMU+ 4,128 

5016 FORT=0TO500:NEXT:POKEMU+ 4,0:POKEMU + 
1,43:POKEMU,1£7:POKEMU+4,1£9:FORT=0TO500 

5017 NEXT:POKEMU+4,0:POKEMU+1,61:POKEMU, 
126:POKEMU+4,129:FORT=0TO200:NEXT 

5019 POKEMU+4,0:POKEMU+1,4:POKEMU,139:P0 
KEMU+4,129:FORT=0TO50:NEXT:POKEMU+4,0 

5020 POKEMU+1,0:POKEMU,0:PR INT"J M :POKEVI 
+21,0:POKEV1+16,0:FORK=1T02:POKE2040+K,K 
+ 13 

5025 POKEVI+39+K,K+6:NEXT:POKE£040,13:P0 
KEVI+39,5:POKEMU+5,0:POKEMU+6,0 

5030 FORV=1 TO7:POKEMU +24,15:P0KEMU+4,17: 
ONVGOTO5031,5032,5033,5034,5035,5036,503 
7 

5031 POKEMU +1,57:POKEMU,172:GOTO5038:REM 
** PLAY NOTE FOR LINE PRINTED 

5032 POKEMU +1,54:POKEMU,111:GOTO5038 

5033 POKEMU+1,51:POKEMU,97:GOTO5038 

5034 POKEMU +1,48:POKEMU,1£7:GOTO5038 

5035 POKEMU +1,45:POKEMU,198:GOTO5038 

5036 POKEMU+1,43:POKEMU,52:GOTO5038 

5037 POKEMU+i,40:POKEMU,200:GOTO5038 

5038 POKEMU+4,16:FORT=0TO50:NEXT:POKEMU+ 
4,0 
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5040 PR INTTAB < 6 ) " 0fYOU HAVE BEEN DESTROYE 
D. YOUR SCORE IS" ; C; "fil- " 

5050 PRINT" ANOTHER GAME? ANY KEY TO ST 
ART"sNEXTVsREM ** REPEATS MESSAGE 
5070 POKE 193,0: UIAIT198,1 SPRINT" J" sC=0sY= 
152 s POKEVI,Y* REM ** RESET ON KEY PRESS 
5080 RETURNS REM ** START NEW GAME 

5999 REM ** HIT & SCORE ROUTINE 

6000 POKEV I+2 1,7 SPOKEVI+5,64s IFPEEKCVI + l 
6 > =30RPEEK(V I + 16) = 1THENPOKEVI + 16,7 s POKEV 
I+4,Y-255 

6001 IFY<256THENP0KEVI+4,Ys REM ** EXPLOS 
ION AT MUSHROOM POSITION 

6002 FORSC = 80TO240STEP40:POKEP-SC,32 s POK 
ECO-SC ,0 : NEXTs C=C+ 1 s REM ** ERASE + SCORE 

6003 POKEMU +24,15 s POKEMU+5,47 s POKEMU+6,5 
sPOKEMU + 4,129:POKEMU + 1,4sPOKEMU,208sPOKE 
MU+4,128 

6004 FORT=0TO100:NEXTs POKEMU+4,0 s POKEMU + 
5,0s POKEMU +6,0 

6005 F =72 
6010 RETURN 

6999 REM ** CHARACTER SET DATA (ALL 256 
CHARACTERS, NORMAL & REVERSE, SET 1> 

7000 DATA 127,115,119,119,112,115,127,0,1 
27,115,115,127,115,115,115,0 

70 10 DATA 127,115,115,126,115,115,127,0,1 

27,112,112,112,112,112,127,0 

7020 DATA 126,115,115,115,115,115,126,0,1 

27,112,112,126,112,112,127,0 

7030 DATA 127,112,112,126,112,122,112,0,1 

27,112,112,115,115,115,127,0 

7040 DATA 115,115,115,127,115,115,115,0,2 

8,28,28,28,23,28,28,0 

7050 DATA7,7,7,7,103,103,127,0,115,11S,1 
24,120,124,118,115,0 

7060 DATA 112,112,112,112,112,112,127,0,1 
19,127,107,107,99,99,99,0 

7070 DATA 127,115,115,115,115,115,115,0,1 

27,115,115,115,115,115,127,0 

7080 DATA 127,115,115,127,112,112,112,0,1 

27,115,115,115,115,127,14,0 

7090 DATA 127,115,115,127,124,1 18,115,0,1 

27,112,112,127,3,3,127,0 
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7100 DATA 127,28,£8,£8,£8,£8,£8,0,115,115 
,115,115,115,115,127,0 

7110 DATA 1 15,115,1 15,115,115,62,28,0,99, 
99,99,107,107,127,119,0 

7120 DATA 115,115,115,62,115,115,115,0,11 
5,115,115,127, £8,28, £8,0 

7130 DATA 127,7,14,28,56,112,127,0,62,56, 
56,56,56,56,62,0 

7140 DATA63,56,56,126,56,56,127,0,62,14, 
14,14,14,14,62,0 

7150 DATA8,28,62,28,28,28,28,0,0,16,63,1 
£7,63,16,0,0 

7160 DATA©,0,0,0,0,0,0,0,28,£8,£8,£8,0,0 

, 28,0 

7170 DATA 115,115,115,0,0,0,0,0,118,118,2 
55,1 18,255,1 18,1 18,0 

7180 DATA28,127,112,127,3,127,28,0,115,1 
19,14,28,56,119,103,0 

7190 DATA 126,118,126,60,127,118,127,0,7, 
14,28,0,0,0,0,0 

7200 DATA 14,£8,56,56,56,28,14,0,56,28,14 
,14,14,28,56,0 

7210 DATA0,118,60,255,60,118,0,0,0,28,28 
,127,28,28,0,0 

7220 DATA0,0,0,0,0,28,28,56,0,0,0,127,0, 

0 , 0,0 

7230 DATA0,0,0,0,0,£8,£8,0,0,3,7,14,23,5 

6 , 112,0 

7240 DATA 127,115,119,127,123,1 15,127,0,1 
24,28,28,28,28,2s, 127,0 

7250 DATA 127,3,3,127,112,112,127,0,127,7 
,7,62,7,7,127,0 

7260 DATA 112,112,118,118,127,6,6,0,127,1 
12,127,3,3,3,127,0 

7270 DATA 127,112,112,127,115,115,127,0,1 
27,7,7,7,7,7,7,0 

7280 DATA 127,1 15,115,62,1 15,115,127,0,12 
7,115,115,127,3,3,3,0 

7290 DATA0,0,28,0,0,28,0,0,0,0,28,0,0,28 
,28,56 

7300 DATA 15,28,56,1 12,56,28,15,0,0,0,127 
,0,127,0,0,0 

7310 DATA 120,23,14,7,14,23,120,0,127,103 
,31 ,28,28,0,28,0 
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73E0 DATA0,0,0,£55,£55,0,0,0,8,£8,62,127 
,127,28,62,0 

7330 DATA24,24,£4,24,£4,£4,£4,£4,0,0,0,£ 
55,255,0,0,0 

7340 DATA0,0,255,£55,0,0,0,0,0,255,255,0 

, 0,0 , 0,0 

7350 DATA0,0,0,0,255,255,0,0,48,48,48,48 
,43,48,48,48 

7360 DATA 12,12,12,12,12,12,12,12,0,0,0,2 

24.240.56.24.24 

7370 DATA24,24,28,15,7,0,0,0,24,24,56,24 
0,224,0,0,0 

7380 DATA 192,132,192,192,192,192,255,255 
,192,224,1 12,56,28,14,7,3 

7390 DATA3,7,14,28,56,11 £,224,192,255,25 

5.192.192.192.192.192.192 

7400 DATA255,255,3,3,3,3,3,3,0,60,126,12 
6,126,126,60,0 

7410 DATA0,0,0,0,0,255,255,0,54,127,127, 
127,62,28,8,0 

7420 DATA96,96,96,96,96,96,96,96,0,0,0,7 
, 15,28,24,24 

7430 DATA 195,231,126,60,60,126,231,195,0 
,60,126,102,102,126,60,0 

7440 DATA24,24,102,102,24,24,60,0,6,6,6, 

6 , 6 , 6 , 6,6 

7450 DATA8,23,62,127,62,28,8,0,24,24,24, 
£55,255,24,24,24 

7460 DATA 192,192,48,48,192,192,48,48,24, 

24.24.24.24.24.24.24 

7470 DATA0,0,3,126,246,113,118,0,255,127 
,63,31,15,7,3,1 

7480 DATA0,0,0,0,0,0,0,0,240,240,240,240 
,240,240,240,240 

7490 DATA0,0,0,0,£55,255,255,255,255,0,0 

, 0 , 0 , 0 , 0,0 

7500 DATA0,0,0,0,0,0,0,255,192,192,192,1 

92.192.192.192.192 

7510 DATA204,204,51,51,204,204,51,51,3,3 
,3,3,3,3,3,3 

7520 DATA0,0,0,0,204,204,51,51,255,254,2 
52, £48,£40,224,192,128 

7530 DATA3,3,3,3,3,3,3,3,£4,24,24,31,31, 
£4,24,24 
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7540 DATA©,0,0,0,15,15,15,15,24,24,24,31 

, 31 , 0 , 0,0 

7550 DATA©,0,0,248,248,24,24,24,0,0,0,0, 
0,0,255,255 

7560 DATA0,0,0,31,31,24,24,24,24,24,24,2 
55,255,0,0,0 

7570 DATA0,0,0,255,255,24,24,24,24,24,24 
,248,248,24,24,24 

7580 DATA 192,182,192,192,192,192,192,192 
,224 ,224,224,224,224,224,224,224 
7590 DATA7,7,7,7,7,7,7,7,255,255,0,0,0,0 
, 0,0 

7600 DATA255,255,255,0,0,0,0,0,0,0,0,0,0 
,255,255,255 

7610 DATA3,3,3,3,3,3,255,255,0,0,0,0,240 
,240,240,240 

7620 DATA 15,15,15,15,0,0,0,0,24,24,24,24 
8,248 ,0,0,0 

7630 DATA240,240,240,240,0,0,0,0,240,240 
,240,240,15,15,15,15 

7640 DATA 128,140,136,136,143,140,128,255 

,128,148,140,128,140,140,140,255 

7650 DATA 128,140,140,129,140,140,128,255 

,128,143,143,143,143,143,128,255 

7660 DATA 129,140,140,140,140,140,129,255 

,128,143,143,129,143,143,128,255 

7670 DATA 128,143,143,129,143,143,143,255 

,128,143,143,140,140,140,128,255 

7680 DATA 140,140,140,128,140,140,140,255 

,227,227,227,227,227,227,227,255 

7690 DATA248,248,248,248,152,152,128,255 

,140,137,131,135,131,137,140,255 

7700 DATA 143,143,143,143,143,143,128,255 

,136,128,148,148,156,156,156,255 

77 10 DATA 128,140,140,140,140,140,140,255 

,128,140,140,140,140,140,128,255 

7720 DATA 128,140,140,128,143,143,143,255 

,128,140,140,140,140,123,241,255 

7730 DATA 128,140,140,128,131,137,140,255 

,128,143,143,128,252,252,123,255 

7740 DATA 128,227,227,227,227,227,227,255 

,140,140,140,140,140,140,128,255 

7750 DATA 140,140,140,140,140,193,227,255 

,156,156,156,148,148,128,136,255 
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7760 DATA 140,140,140,193,140,140,140,255 

,140,140,140,128,227,227,227,255 

7770 DATA 128,248,24 1,227,199,143,128,255 

, 193,199,199,199,199,199,193,255 

7780 DATA 192,199,199,129,199,199,128,255 

,193,241,241,241,241,241,193,255 

7790 DATA247,227,193,227,227,227,227,255 

,255,239,192,128,192,239,255,255 

7800 DATA255,255,255,255,255,255,255,255 

,227,227,227,227,255,255,227,255 

78 10 DATA 140,140,140,255,255,255,255,255 
,137,137,0,137,0,137,137,255 

7820 DATA227,128,143,128,252,128,227,255 

,140,136,241,227,199,136,152,255 

7830 DATA 129,137,129,195,128,137,128,255 

,248,241,227,255,255,255,255,255 

7840 DATA241,227,199,199,199,227,241,255 

, 199,227,241 ,241 ,241,227,199,255 

7850 DATA255,137,195,0,195,137,255,255,2 

55,227,227,128,227,227,255,255 

7860 DATA255,255,255,255,255,227,227,199 

,255,255,255,128,255,255,255,255 

7870 DATA255,255,255,255,255,227,227,255 

,255,252,248,241,227,199,143,255 

7880 DATA 128,140,136,128,132,140,128,255 

,13 1 ,227,227,227,227,227,128,255 

7890 DATA 128,252,252,128,143,143,128,255 

, 128,248,248,193,248,248,128,255 

7900 DATA 143,143,137,137,128,249,249,255 

,128,143,128,252,252,252,128,255 

79 10 DATA 128,143,143,128,140,140,128,255 
, 128,248,248,248,248,248,248,255 

7920 DATA 128,140,140,193,140,140,128,255 

,128,140,140,128,252,252,252,255 

7930 DATA255,255,227,255,255,227,255,255 

,255,255,227,255,255,227,227,199 

7940 DATA240,227,199,143,199,227,240,255 

,255,255,128,255,128,255,255,255 

7950 DATA 135,227,24 1 ,248,24 1 ,227,135,255 

, 128,152,224,227,227,255,227,255 

7960 DATA255,255,255,0,0,255,255,255,247 

,227,193,128,128,227,193,255 

7970 DATA231,231,231,231,231,231,231,231 

,255,255,255,0,0,255,255,255 
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7930 DATA£55,£55,0,0,255,255',£55,255 ,255 
,0,0,255,255,255,255,255 

7990 DATA255,255,255,255,0,0,255,255,207 

,207,207,207,207,207,207,207 

3000 DATA243,243,243,243,243,243,243,243 

,255,255,255,31,15,199,231,231 

8010 DATA231,231,227,240,248,255,255,255 

,231,231,199,15,31,255,255,255 

8020 DATA63,63,63,63,63,63,0,0,63,31,143 

,139,227,241,243,252 

8030 DATA252,248,241,227,199,143,31,63,0 
,0,63,63,63,63,63,63 

8040 DATA0,0,252,252,252,252,252,252,255 

,185,129,129,129,129,195,255 

8050 DATA255,255,255,255,255,0,0,255,201 

,128,128,128,193,227,247,255 

8060 DATA 159,159,159,159,159,159,159,159 

,255, £55, £55,248,240,227,£31,231 

8070 DATA60,£4,129,195,195,129,24,60,255 

,195,129,153,153,129,195,255 

8080 DATA231,231,153,153,231,231,195,255 

,249 ,249,249,249,249,249,249,249 

8090 DATA247,227,193,128,193,227,247,255 

,231 ,231,231,0,0,231,231/231 

8100 DATA63,63,207,207,63,63,207,207,231 

,231 ,231,231,23 1 ,23 1,231,231 

8110 DATA255,255,252,129,9,137,137,255,0 

,128,192,224,240,248,252,254 

8120 DATA255,255,255,255,255,255,255,255 

,15,15,15,15,15,15,15,15 

8130 DATA255,255,£55,255,0,0,0,0,0,255,2 
55 ,255,255,255,255,255 

8140 DATA255,£55,255,255,255,255,255,0,6 
3,63,63,63,63,63,63,63 

8150 DATA51,51,204,204,51,51,204,204,252 
,252,£52,£52,£52,£52,252,£52 
3160 DATA£55,£55,£55,£55,51,51,204,204,0 
,1,3,7,15,31,63,127 

3170 DATA252,252,252,252,252,252,252,252 

,231,231,231,££4,224,231,231,231 

3180 DATA255,255,255,£55,£40,£40,£40,£40 

,231 ,231 ,231 ,224,£24, £55,£55,£55 

8190 DATA255,255,255,7,7,231,231,231,255 

,255,255,255,255,255,0,0 
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3200 DATA255,255,255,224,224,231,231,231 

,231,231,231,0,0,255,255,255 

8210 DATA255,255,255,0,0,231,231,231,231 

,231,231,7,7,231,231,231 

8220 DATA63,63,63,63,63,63,63,63,31 ,31,3 
1,31,31 /31 ,31,31 

8230 DATA248,248,243,248,248,243,248,248 

,0,0,255,255,255,255,255,255 

3240 DATA©,0,0,255,255,255,255,255,255,2 

55,255 ,255 ,255,0,0,0 

8250 DATA252,252,252,252,252,252,0,0,255 
,255,255,255,15,15,15,15 

8260 DATA240,240,240,240,255,255,255,255 
,231,231,231,7,7,255,255,255 
8270 DATA 15,15,15,15,255,255,255,255,15, 
15,15,15,240,240,240,240 

3280 REM ** IF YOU DON‘T FANCY TYPING TH 
AT LOT, TO COPY THE SET IN ROM CHANGE 
8290 REM ** LINE 10 TO: P0KE56333,127:PO 
KE1,51:FOR I=0TO2047:PQKECH+I,PEEK<VI + I)s 
8300 REM ** NEXT • POKE 1,55:P0KE56333,129: 
GO3UB750 <USE ABBRS.> & OMIT 6993 TO END 
8310 REM ** TO PCN - THIS IS THE UPPER C 
ASE HALF OF MY OWN CHARACTER SET: IF YOU 
8320 REM ** LIKE IT AND WISH TO INCLUDE 
IN THIS PROGRAM OR TO GIVE A SEPARATE 
8330 REM ** LISTING USING THE LOADER IN 
LINE 10 (FOR I=0TO2047. . .NEXT) OR COMBINE 
8340 REM ** WITH LOWER CASE HALF (INCLUD 
ED IN MINELAY ON NEXT TAPE), PLEASE GET 
8350 REM ** IN TOUCH WITH ME. NOTE: ALL 
ALPHANUMERICS & PUNCTUATION REVISED BUT 
8360 REM ** GRAPHICS AS STANDARD - SO FA 
R: COMPLETE SET NORMALLY LOCATED AT 8192 
8370 REM ** ($2000), POKING 53272 WITH 2 
5/27 OR 12288(^3000), 29/31; BASIC ABOVE 
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In Postman your task is to deliver the letters you collect from the 
postbox to the household eagerly awaiting their mail. Easy enough, 
even with the time limit placed on these activities, except for the 
presence of the dog. Remorselessly seeking out the blue serge pants legs 
it adores, it has the advantage that it can move diagonally, whilst you 
cannot. Being a little faster on the straight, you will survive if the streets 
(which stop you, but not the dog) don’t hamper your progress. Luckily 
you can choose the number of streets in your district at the start, so the 
mail may get through. 


******************************* 

** 


* * 

* * 

MR.POSTMAN 

** 

** 


** 

** 

ADAPTED FOR THE 

** 

** 

COMMODORE 64 

** 

** 

BY 

** 

** 

D.A.PONTING 

** 

** 


** 

** 

CO 

CO 

I 

CO 

i 

<r«4 

** 

** 


** 


50 REM ft***#**#**#**#####************* 

5£ DQklN$= 11 11 ; RFM 

25 < CURSOR DOWN> 


53 S IDE$ = 

: REM 40 <CURSOR R IGHT> 

54 PO$="^ HHI £SB H" :HS = 0 

55 P0KE5328 1,1: POKE53280,1 : PR I NT 11 

56 V=53248sPOKE650,128:DIMX<36>,Y<36> 

57 DEF FNA <0) =INTCSQR<<ABS<<PX-HX)/8>t2 
> + <ABS < <PY-HY>/8 > t2> > 

58 GOSUB9000 
60 GOSUB5500 

62 PGKE5328 1 , 1SPOKE53280,1 SPRINT"SU 11 

65 GOSUB7000 

70 GOSLIB5000 

75 POKE 198,0 

30 FOR 1 = 1T02 

100 GETM0$ 
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105 IFMO*="."THENIFFL<>1THENX1=X+4:FL=1: 
POKE2040 , 192 s POKES+15,39 

110 IFMO*=","THENIFFL<>2THENX1=X-4:FL=2: 
POKE2040 ,193 s POKES+ 15,25 

120 IFMO$="X"THENIFFL<>3THENY1=Y+4:FL=3: 
s POKE2040,193:POKES+15,45 

130 IFMO$="Z"THENIFFL<>4THENY1=Y-4:FL=4: 
POKE2040,193 s POKES +15,15 
140 : 

145 POKEV,X1+256*<X1>255):POKEV+l,Y1:IFX 
1>255THENP0KEV+16,PEEK <V+16>0R1 

146 IFX 1 <256THENP0KEV + 16 ,PEEK <V + 16 >AIMD25 

4 

147 FL=FL* <PEEK < V+3 1)AND 1) 

148 POKES + 18,33 s IFFLTHENX1=X:Y1=Y:GOTO 14 

5 

149 X=X1:Y=Y1 

150 POKES+ 15,20 s POKES + 18,32 

200 IFLTR=1THENIFX >HX-4HNDX<HX+4THENIFY> 
HY-4ANDY<HY+4THENGOSUB900 

250 IFLTR =0THENIFX >PX-8ANDX< PX+8THENIFY> 

PY~8ANDY<PY+8THENGOSUB850 

300 POKES+18,32 s NEXTI 

500 DY=DY-4*(DY<Y)+4* <DY>Y> 

510 IFDX<XTHENDX=DX+5 * POKE2041,197:REM P 
OS ITION DOG HERE 

530 IFDX >XTHENDX a DX-5 s POKE2041,196 

800 POKEV+2,DX+256* <DX >255)!POKEV +3,DY s I 

FDX>255THENP0KEV + 16,PEEK <V+16 >0R2 

805 IFDX<256THENP0KEV+16,PEEK<V+16>AND25 

3 

8 10 IFDX >X-8ANDDX<X+8THENIFDY>Y-8ANDDY<Y 
+8THENGOSUB6000 

820 TM=TM-1s G0SUB7999 • IFTM=<0THEN8000 
830 GOTO80 

850 LTR =1:SC=SC+10 s G0SUB7999 s GOTO5300 
900 LTR =0 

910 0=INT<SQR< <ABS< <PX-HX)/8)t2) + <ABS< <P 
Y-HY>/8>t2>)) 

920 SC=SC+0:G0SUB7999:GOSUB5300:GOTO5000 
5000 : 

5003 PX=INT<RND(1>* 17>*2+3sPY=INTCRND<1) 
*8)*2+9 

5004 IFPEEK <1024+PY*40+PX)<>320RPEEK<106 

4 +PY*40 +PX > <>32THEN5003 
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5005 IFPEEK <1104+PY*40+PX>< >3£THEN5003 

5006 LTR=0:PX=20+PX*8:PY=50+PY*8 

5007 POKEV+ 6 ,PX+256* <PX >£55 ) s POKEV+7 ,PY* 
IFPX>£55THENP0KEV+16,PEEK <V +16 >0R8 

5008 IFPX<£56THENP0KEV+16,PEEK <V+16 >AND2 
47 

5030 HX=3+INT <RND <1>* 17)*2:HY=INT<RND<1> 
*8)*2+9 

5040 IFPEEK <1024 +HY*40 +HX)< >320RPEEK <106 
4+HY*40+HX>< >32THEN5030 
5050 : 

5055 HX=16+HX*8:HY=50+HY*8 

5057 IF <HX >PX-£0ANDHX<PX+20) AND <HY>PY-20 
ANDH Y < PY+20)THEN5030 

5060 POKEV+4, HX+256* <HX >255)s POKEV+5, HY: 
IFHX >255THENP0KEV+16,PEEK<V + 16)0R4 
5065 IFHX<256THENP0KEV+16,PEEK <V+16) AND2 
49 

5070 Xl=320:Y1=2£0:X=X1:Y=Y1 
5100 s 
5200 : 

5210 S=54272:FORT=0TO£8:POKES+T,0:NEXTT 
5220 POKES+24,15:POKES+14,20:POKES+15,20 
■ POKES+19,32:POKES+20,0:POKES+18,128 
5290 RETURN 

5300 S=54272:POKES,45 I POKES + 1,24:POKES+ 7 

,52iPOKES+8,38 

5310 POKES+5,50 • POKES+12,50 

5320 POKES+6,245:POKES+13,245:POKES+20,2 

45:POKES+2,255:POKES+24,15 

5325 FORT =1T05 

5330 POKES+4,65 ' POKES+11,33 

5335 FORUI= 1TO70 : NEXTUJ 

5340 POKES+4 ,64:POKES + 11,32 

5350 FORUl= 1TO20 • NEXTUJ,T 

5400 GOSUB5200;RETURN 

5500 PRINT" HOU1 MANY STREETS WOULD YOU 
LIKE":PRINT"THERE TO BE "; 

5520 PRINT" <ANY NUMBER 1-36>" 

5550 INPUTLBs IFLB< 1ORLB >36THENPR I NT " COT 
s GOTO5500 
5800 RETURN 
6080 i 

6005 POKES,2® s POKES + 1,10 8 POKES+5,9 s POKES 
+6,240 
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6010 FORT =1TO 10 

6020 POKE2040 ,192:POKE£041,196 

6025 POKES +4,33 

6030 FORDL=1TO10:NEXTDL 

6040 POKE2040 r 193:POKE2041,197 

6045 POKES+4,32 

6050 FQRDL=1TO10:NEXTDL 

6060 NEXTT 

6070 X=316:Y=£16:X1=X:Y1=Y:TM=TM-50 
6080 DX=40:DY=80: 

6100 RETURN 

7000 REM * INITIAL SCREEN DISPLAY * 

7005 AB$="$j" : FORT= 1T038 : BB$=BB$+ 

" ":AB$=AB$+:NEXTT 

7007 AB$=AB$+ "tr* s BB$=BB$+ 

70 10 PR INT"ajHS"AB^;:F0RT=1T02 1:PRINTBB$ 
;:NEXTT 

7020 PRINTLEFT$<AB*,39); : PR I NT " 

; : PR I NT" ^3"; 

7100 FORF = 1TOLB 

7110 Y=INT(RND <1>*4>*6+3:X=INTCRND<1 > *9 ) 
*4+3 

7120 IFPEEK <1024+Y*40+X)< >320RPEEK<1064 + 
Y*40 +X > <>3£THEN7110 
7125 Y(F > =Y: X (F )=X 

7130 PRINT"S ,, LEFT$<DO$,Y>LEFT$<SI$,X>PO$ 
:NEXTF 

7820 REM: POKEV,X+£56*<X>£55):POKEV+1,Y 

7840 SC=0 s TM=300 

7850 LTR=0:PY=Y<LB):PX=X<LB) 

7900 DY=80:DX=40 

7905 POKEV+2, DX+256* <DX >255 >:P0KEV+3,DY 

7999 PRINT"^"TAB(5> "SCORE"TAB< 15>SCTAB( 
25 ) " TI ME " TAB ( 34 ) TM " IB " ; : RETURN 

8000 REM ******* END OF GAME ******** 
8005 PRINT" :POKES,30:POKES+1,10:POKES + 
5 ,20:POKES+6 ,0 

8010 PR I NT" H" :PQKE53280,0:P0KE53281,0:PR 
INT"®":POKE 198,0:POKES+4,17 
8020 PRINT"E&MMM YOU HAVE RUN OUT OF 

TIME":FORT =1TO50 

8030 PRINT"gMk YOU SCORED "SC" POIN 

TS " 

8035 IFSC< =HSTHEN8060 
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8040 HS=SC:PRINT‘'a® WELL DONE, THAT'S A 
NEW HIGH SCORE! ! " 

8050 PRINT" SI PLEASE ENTER YOUR NAME"; : I 
NPUTH$:GOTO8070 

8060 PRINT"® THE HIGH-SCORE IS "HS" PO 
INTS":PR INT"B BY POSTMAN "H$ 

8070 FORT=lTO1000:NEXT 

8080 PRINT"W EgMEfl PRESS ANY KEY TO PLAY 
AGAIN " 

8080 GETRR$:IFRR$=""THENPOKES+4,16:FORT= 

1TO40:NEXTT:GOTO8010 

8095 PR INT"J" ; :GOTO60 

8100 GOTO8100 

9000 V=53£48 

90 10 FORW=0TO127:READA:POKE 192*64 +W,A:NE 
XTW 

9020 FORW=0TO63:READA:POKE200*64+W,A:NEX 
TW 

9030 FORW=0TO127:READA:POKE 196*64+W,A:NE 
XTW 

9035 FORW=0TO63:READA:POKE201*64 +W,A:NEX 
TW 

9040 POKE2040,192:POKE2041,196:POKE2042, 
200:POKE2043,201 

9050 POKEV,0:POKEV +1,0:POKEV+2,0:POKEV+3 
, 0 : POKEV +4,0: POKES/ +5,0 : F'OKEV +2 1 , 15 
9060 POKEV +39,10:POKEV+40,9:POKEV+ 41,4:P 
OKEV+42,2 

9200 PRINT" ___ ____ 


9210 PRINT" 
\ I " 

9220 PRINT" 
\ I " 

9230 PRINT" 
\ I " 

9240 PRINT" 
M " 


i i r~n I I 

I_I I I L_ 

8 S 8 □ 8 

8 I_I I_I 


i\ a rn s 

I \/ I l_1 8 

fl I I-1 I 

II 8! 81 


9250 PRINT:PRINT:PRINT" BY DAVE PO 

NTING 

9300 PR I NT" 12H FIRST COLLECT A LETTER 

FROM THE FLASHING POST-BOX."; 

9310 PR INT"THEN DELIVER IT TO THE 

LITTLE PURPLE HOUSE," 
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9350 PRINT" YOU HAVE LIMITED TIME, AND I 
F YOU ARE ATTACKED BY THE DOG u ; 

9360 PR INT"YOU WILL LOSE TIME" 

9400 PRINT"H& MOVE WITH:- < CLEFT) > 
(RIGHT)" 

9405 PRINT" Z CUP) X CD 

OWN) " 

94 10 PR INT "-m PRESS ANY KEY TO STAR 

T" 

9700 GETA$:IFA$=""THEN9700 
9999 PRINT"J":RETURN 

20000 DATA 48, 0, 0, 124, 0, 0, 212, 0, 

0 , 202 , 0 , 0 

20003 DATA 254, 0, 0, 228, 0, 0, 124, 0, 

0, 56, 128, 0 

20004 DATA 125, 0, 0, 186, 0, 0, 184, 0, 

0, 184, 0, 0 

20005 DATA 36, 0, 0, 34, 0, 0, 66, 0, 0, 
130, 0, 0 

20006 DATA 99, 128, 0, 0, 0, 0, 0, 0, 0. 

0 , 0,0 

20007 DATA 0, 0, 0, 0 

20010 DATA 16, 0, 0, 56, 0, 0, 56, 0, 0, 
56, 0, 0 

20013 DATA 16, 0, 0, 16, 0, 0, 60, 0, 0, 

122 , 0 , 0 

20014 DATA 186, 0, 0, 56, 0, 0, 56, 0, 0 
, 48, 0, 0 

200 15 DATA 72, 0, 0, 68, 0, 0, 34, 0, 0, 

102 , 0 , 0 

20016 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 

0 , 0 

20017 DATA 0, 0, 0, 0 

20100 DATA 1, 16, 0, 3, 144, 0, 7, 208, 

0, 15, 240, 0 

20103 DATA 31, 240, 0, 127, 252, 0, 63, 

248, 0, 51, 24, 0 

20104 DATA 51, 24, 0, 63, 248, 0, 63, 25 
5, 252, 63, 248, 6 

20105 DATA 49, 153, 230, 49, 153, 230, 6 

3, 153, 38, 255, 255, 254 

20106 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0/ 0, 

0 , 0 

20107 DATA 0, 0, 0, 0 
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£0200 DATA 0, 0, 0, 

8 , 0 , 0 

£0£03 DATA 56, 1, 0, 

0, 152, 4, 0 
£0204 DATA 31, £52, 
52, 0, 40, 12, 0 
£0205 DATA 68, 18, 0 

0, £04, 51, 0 
£0206 DATA 0, 0, 0, 
0 , 0 

£0207 DATA 0, 0, 0, 
£0220 DATA 0, 0, 0, 
0, 60, 0 

£0223 DATA 128, 44, 
2, 0, 32, 48, 0 
20224 DATA 63, £40, 
£40, 0, 48, 48, 0 
£0225 DATA 72, 72, 0 
2, 0, 204, 108, 0 

£0226 DATA 0, 0, 0, 

0 , 0 

£0227 DATA 0, 0, 0, 
20300 DATA 0, 0, 0, 
0 , 0 

20303 DATA 0, 0, 0, 
15, 255, 128 

£0304 DATA 15, £55, 

, 0, 3, £54, 0 
£0305 DATA 3, 254, 0 
0, 3, 142, 0 
£0306 DATA 3, £54, 0 
0, 3, 254, 0 
£0307 DATA 0, 0, 0, 


0, 0, 0, 36, 0, 0, 1 

£16, 1, 0, £48, 2, 

0, 63, £54, 0, 31, £ 
, 68, 17, 0, 68, 17, 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 

0 

0, 144, 0, 0, 32, 0, 

0, 128, 60, 0, 64, 5 

0, 127, £48, 0, 63, 

, 136, 72, 0, 136, 7 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 

0 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 

0, 0, 0, 1, 252, 0, 

128, 3, £54, 0, 3, 6 
, 3, 142, 0, 3, 142, 

, 3, £54, 0, 3, 254, 
0 
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You are at the edge of Time, closely pursued by a fleet of alien craft who 
are out to steal your ship’s power. However you have a trick or two up 
your sleeve. You have the capacity to guard the ends of the time tunnel 
by setting up energy fields at each of the four open ends of the system. If 
you attempt to set up a force field anywhere other than at the ends of the 
time tunnel, the force will feedback and destroy you. Likewise, if you 
set up a field at the end of an unoccupied tunnel you are finished. Passive 
cruiser commanders who allow too many aliens through will find their 
power drained and the game over. 

10 REM **************************** 


11 

REM 

** 


** 

12 

REM 

** 

ENERGY FIELDS 

** 

14 

REM 

* * 

ADAPTED FOR THE 

** 

16 

REM 

** 

COMMODORE 64 

** 

18 

REM 

** 

BY 

** 

20 

REM 

** 

D- A.PONTING 

** 

22 

REM 

** 

22/7/83 

** 

24 

REM 

** 


** 


26 REM **************************** 

50 DIMLTR <20 ,7 ) 

100 A 1$="ENERGY FIELDS":S=54272:V=53248: 
SC4?= "000 " :LI$="5" :MO=l - 1 

107 PO$="80":P0KE56334,PEEK <56334 >AND254 
103 POKE 1,-PEEK <1)AND251 
110 FORC1 = 1TOLEN < A 1 $ ) 

115 FORT = 0TO7 

120 LTRCC1,T)=PEEK< <ftSC<MID$<A1$,C1,1>>- 
64) *8 +53248 +T) 

130 NEXTT,C1 

132 POKE 1 r PEEK <1>0R4 

134 P0KE56334,PEEK <56334 >OR1 

136 GOSUB2000 

200 REM * POSITION SPRITE * 

201 FORT=0TO63:P0KE832+T r Q :NEXTT 

202 X=104:Y=255:REM *** INITIAL POSITION 
*** 

203 SP$= felRUIUBIfi" 

204 
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205 FORTT =1TO 13 
210 FORT=0T07 

220 POKE832+ < T*3 >, LTR <TT,T):REM *** SPRI 
TE SHAPE DATA *** 

230 NEXTT 

235 POKEV,X:POKEV+1 ,Y 

240 POKE2040,13:REM SPRITE 0 

250 POKEV+21,PEEK<V+21)OR 1 :P0KEV+39,5 

280 FORY=2T066STEP4 

290 POKEV,X : POKEV +1 , Y 

295 REM IFY=24THENGOSUB400 

296 NEXTY:GOSUB400:Y=24:X=X+8:NEXTTT 

297 GETQQ$:IFQQ$=""THEN297 

298 GOSUB600:GOSUB900;GOTO730 

300 REM ****** FIRE ENERGY FIELDS ****** 

301 POKE2044,64:POKE2043,64 : POKE2045,64: 
POKE2046,64:V=53248 

302 POKEV +21,PEEK < V+21)OR120:POKEV+28,PE 
EK <V+28>OR120 

303 X1=X2 : Y1=Y2 

304 POKEV+6, XX:POKEV+7, YY 

305 POKEV+8,XX+X1:PQKEV+9,YY+Y1 

310 POKEV+10,XX+2*X1:POKEV+11,YY+2*Y1 
315 POKEV+12, XX+3*X1:POKEV+13,YY+3*Y1 
320 POKEV+42,X/2:POKEV+43, X/2:POKEV+44,X 
/2 : POKEV +45,X/2 

325 POKEV +38,X1+Y1:POKEV+ 37,X1+Y1+7 
328 POKES+4,33:FORTT =1T03:F0RT=25T075:PO 
KES+1,T:NEXTT,TTSPOKES+4,0 

330 POKE 16320+3*<X1+Y1),INT<RKD <1>*256) 

331 POKE 16321+3*<X1+Y1>,INT<RND <1>*256> 

332 POKE 16322+3* <X1+Y1>,INT<RND<1> *256 > 
335 GOSUB930 

340 POKEV+30,0 

345 IFCH=KTHENSC=SC+20 : GQSUB380 : GOSUB110 
0:GOTO900 
350 L I =LI-1 

355 POKES+4,33:FORT=1TO50 

357 POKE2048,T:POKEV+39,T:POKES+1,20:POK 

ES+1,40:POKES+1,60iPOKES+1,80 

360 NEXTT:POKES+4,0:POKE2040,13:POKEV+39 

,5:GOSUB1100:GOTO900 

380 POKES+4,17:POKES+11,33:FORTT=1T05:FO 
RT=1T0255STEP16 
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385 POKES+8,<256-T)sROKES+1,T 

330 NEXTT,TT: POKES + 4,0:POKES + 11,0:RETURN 

400 PRINT ,, afl^a , ‘;SP^; :SP*=SP$+"M" 

402 PRINTMID$<A1$,TT,1);:POKEV+21,PEEK<V 
+21)AND0:RETURN 

410 PRINT l, aEMSsaS«SafiMga ,, ;SQ^; :SQ*=SQ$+"U" 
412 PRINTMID$<A1$,TT,1:P0KEV+21,PEEK<V 
+21>AND253:RETURN 
500 REM *** SOUND *** 

502 S=54272:FORT = 0TO2S:POKES +T,0 
505 POKES +24,15 

50? POKES+5,63:POKES+6,200:POKES+19,12:P 
OKES+20,240 

510 POKES+4,96 : POKES + 1,20 

515 POKES+ 18,65:POKES+12,63:POKES+ 13,200 
525 RETURN 

600 P0KE53281,11:POKE53280,11:PRINT" J" ; 

601 PRINT" 

□ II ■ 

_ r 

602 PRINT"kaSCORE "TAB <10-LEN<SC*>>3 

C$" FUEL "TAB<22-LEN(P0^>>PO^; 

303 PR INT"LIVES "TAB<35-LEN<L1$)> 
LI$" 

604 pr i nt" asm a _ n 


606 

II 

PRINT" 

m ^srm 

arwm 

608 

II 

PRINT" 


& 

610 

PR INT" 


_fir Ha| 


II 


620 PRINT" a 

ru wswm 


WF 

^1 " 

625 PRINT" \ 

ana 



^ a ^1 " 

630 PRINT" | 

\mm 0 



ar i " 

635 PRINT" | 

mm 'm 


wr nr 

i 

640 PRINT" | 

Eia 'm 


m ar 

W 1 

645 PRINT" | 

Bia w_ 

_j L 

_y 

; 

650 PRINT" | 

na 

m i 

a 

i 

655 PRINT" | 

msi ^ — 

—i r 

— 
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I 


660 PRINT" | 

w zr ^ 

^3 1 



665 PRINT" | BS29 


^a 

W \ 



670 PRINT" | 

^ ar 


^ [ - 



675 print" i ar n m' lw 

^B 

y ^ i 



680 PRINT" \SF ffy 

sr 

^B 




685 REM PRINT" 

/ 

\ 

690 REM PRINT" 

/ 

\ 

695 PRINT" 

a m ——^a ■" 

700 PRINT" 

a m 

^a ■" 

705 PRINT" 

r i 



710 PRINT" y - 

7£0 RETURN 
730 RESTORE 

732 FORW=0TO191:READQQ:P0KE83£+W,QQ:NEXT 
WsPOKE2040,13:POKE2046,14:POKE2047,14 
735 X =200:Y=96:V = 53248:SC=0:LI=5:PO=100 
740 POKE2040,13:POKEV+21,PEEK<V+21)ORl:G 
OSUB500 

750 REM **** SPRITE MOVEMENT **** 

752 POKES+14,255-Y:POKES+15,3:POKES+16,Y 
755 AA$="" 

7S0 GETAA*: IFAA$= "||" ANDY<232THENY=Y+4 : X = 
X + 8 

765 IFAA*="H"ANDY>43THENY=Y-4:X=X+8 

766 IFX=>254THENX =0:MSB=1:POKEV+16,PEEK < 
V+ 16)OR1 

767 IFX >90ANDMSB=1THENX=0:MSB = 0:POKEV+16 
,PEEK < V + 16 >AND254 

768 A$="":GETA$:IFAA$=" "THENGOSUB1000 
770 POKEV, X:POKEV+1 , Y 

775 POKEV+42,X/2:POKEV+43,X/2:POKEV+44,X 

/£:POKEV+45,X/2 

780 GOSUB930:GOTO750 

899 RETURN 

900 REM ***** SET-UP INTIIAL ENEMY POSIT 
ION AND DIRECTION **** 

905 POKEV+27,PEEK <V+27)OR 128:POKE2047,1 
4:POKEV+21,PEEK<V+£1)0R128 
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307 POKEV+46,8:MO=MO+0.05 

310 CH=INT <RND <1>*4> + 1:E=144:F = 136 

920 DE=M0*<CH=1>-MO*(CH=£> 

325 DF =M0* <CH=3)-MO*(CH=4) 

327 POKE 138,0:RETURN 

330 E=E +DE:F =F +DF:POKEV+ 14 ,E:POKES/ +15 ,F 
935 IFE<70ORE>190ORF<110ORF >170THENPOKE2 
047,15 

940 IFE<450RE>240ORF<740RF >210THENLI=LI - 
1:GOSUB1100 s GOSUB960 * GOTO900 
950 RETURN 

960 REM **ENEMY ESCAPES SOUND*** 

961 S=54£72 

962 POKES+4,33iFORT=1TO 10 

964 POKES+1,100:GOSUB980:POKES+1,70:GOSU 

B980:POKES+1,50:GOSUB980 

969 NEXTT:POKES + 4,0 

980 FORDL=1TO50:NEXT:RETURN 

1000 REM *** LAY ENERGY SHIELD *** 

1005 X2=0:Y2=0:IFMSB=1THEN1020 

10 10 IF CX >£5ANDX<45) AND( Y>82ANDY<168)THE 

NY2 =21:K =1:XX=48:YY=106:GOTO300 

1020 IF <X >£20ANDX<£40 >AND <Y>82ANDY<16S)T 

HENY2 =21:K=2:XX=£40:YY=106:GOTO300 

1030 IF <X >52ANDX <150)AND <Y>54ANDY<84)THE 

NJ^2=21 : K =3 : XX = 1 12 : YY=76 : GOTO300 

1040 IF <X>52ANDX<150)AND<Y>186ANDY<£16)T 

HENX2 =21:K =4:XX=112:YY=204:GOTO300 

1050 P0=P0-5 

1100 PO$=STR$(PO>:LI$=STR^<LI):SC^=STR$< 
SC) 

1105 IFPO = < 0ORLI= < 0THENGOTO3000 
1110 GOTO601 

1199 PO = PO -5 s GOSUB601:RETURN 
£000 REM *** INSTUCTIONS *** 

2010 PRINT”J"; :PRINT"aHEI" 

£020 PRINT"-" 

£030 PR I NT 11 gj GUARD THE TUBE SYSTEM WITH 
YOUR CRAFT" 

£040 PRINT" BY SETTING UP ENERGY FIELDS 
AT THE 4" 

£050 PRINT" OPEN ENDS OF THE SYSTEM. ATT 
EMPTING" 

£060 PRINT" TO PLACE A FIELD AT ANY PLAC 
E OTHER " 
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£070 PRINT " THAN THE END WILL RESULT IN 
POWER" 

£080 PRINT " LOSS. SETTING ONE UP AT A T 
UBE NOT " 

£090 PRINT" CONTAINING AN ENEMY WILL RE 
SULT IN " 

£100 PRINT" YOUR DESTRUCTION. 

£1£0 PR INTCONTROL YOUR CRAFT BY:-":PR 
INT" ^CURSOR UP ■ = UP 

£130 PRINT" ^CURSOR LEFT & = DOWN 

£150 PRINT" aSPACEB = FIRE 

£160 PR I NT "M3 WHEN ALL OF YOUR FUEL IS US 
ED OR ALL" 

£170 PRINT" YOUR LIVES ARE LOST THE GAME 
IS OVER." 


££00 

PR INT" PRESS 

ANY KEY TO START 

T 

HE GAME" 




£300 

RETURN 




£999 

G0T0£999 




3000 

REM **** END 

OF GAME ***# 


3005 

P0KE53£69 r Q :POKE 198,0 


30 10 

P0KE53£65,PEEK(53£65)0R64 


30£0 

PR INT"J":FORT 

= 1TO500:NEXT:T =0 


3030 

PR I NT " 



3040 

II 

PRINT" 

a 


m 

3045 

ii 

PRINT" 

a 


a 

3050 

ii 

PR INT" 

a 

GAME OVER 

o 

3055 

PRINT" 

a 


a 

3060 

II 

PRINT" 

a 


- 

3070 

PRINT "SSMKMSI 


PRESS ANY KEY TO 

P 

LAY AGAIN" 




3075 

P0KE53£83,T 





3030 GETBB$: IFBB$=""THENT =-<T+1>*<T<£56> 
:GOTO3030 

3090 P0KE53£65,PEEK < 53£65)AND 191:P0KE53£ 
83,£4£ 

309£ SC=0:SC^="00":PO=100:PO$="100":LI=5 
:LI$="5" 

3095 GOSUB600:GOTO730 
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£0000 REM SPRITES* DATA **********SHIP** 
********* 

£0010 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,££4,0,0 

£00£0 DATAS48,0,0,1£4,0,108,63,£55,£16,6 
1,££1,£55,63,£55,£5£,134,0,1£0,1£0,0,3£ 
£0030 DATA££4,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0 , 0 , 0 , 0 , 0 , 0 , 0,0 

£0100 REM ************* ENEMY 1 ******** 
****** 

£0110 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

0 , 0,0 , 0 , 0,0 

£01£0 DATA©,0,0,0,60,0,0,189,0,0,£19,0,0 
,1£6,0,0,60,0,0,60,0 

£0130 DATA0,10£,0,0,195,0,0,195,0,0,60,0 

,0, £4,0,0,0,0,0,0,0,0 

£0£00 REM *** SPRITE ENEMY £ *** 

£0£0£ DATA 6, 3, 0, £, £, 0, 1, 4, 0, 1, 

4, 0 

£0£03 DATA 49, 140, 96, 1£7, £55, £40, £ 

54, 113, £48, 140, 113, 136 


£0£04 

DATA 

140, 113 

, 136 

, 1£7, £55, 

£40 

31, £55, 

19£, £5, 

15£ , 

19£ 


£0£05 

DATA 

£5, 15£, 

19£, 

£4, 0, 19£ 

, £5 

140, 

19£ , 

15, £55, 

1£8 



£0£06 

DATA 

7, 143, 

0 , 1 , 

140, 0, 1, 

140 

0, 49, 140, 96 




£0£07 

DATA 

63, 143, 

££4 , 

0 


£0£ 10 

DATA0,0,0,0,0 

,0,0, 

0,0,0,0,0,0 

,0,0 


0 , 0 , 0 , 0 , 0,0 

£0££0 DATA©,0,0,0,60,0,0,189,0,0,£19,0,0 
, 1 £6,0,0,60,0,0,60,0 

£0£30 DATA©,10£,0,0,195,0,0,195,0,0,60,0 
,0,£4,0,0,0,0,0,0,0,0 



Paypackets 


Anyone who runs a shop or small business will find this program 
something close to invaluable. It’s Friday, you’ve worked out how much 
everyone is getting paid and the time has come to make up the wage 
packets. How many, of what note and what change are your going to 
need? Well, key this in and all your problems are solved. The program is 
relatively short, completely reliable and of course you don’t have to 
own a business to use it. It will work with any sum—from thousands of 
pounds right down to the expenses for the local church fete, or 
individual small prizes for the children’s party. 

0 REM PAYPACKETS.UJALUIYN 

5 G0SUB70G0 

10 REM C$<X>=NAME OF CURRENCY 
12 REM CV<X)=CURRENCY VALUE IN POUNDS 
14 REM CA < X ) =AMOUNT OF UNITS REQUIRED OF 
THIS CURRENCY 

16 REM CB <X)=TOTAL AMOUNT OF UNITS REQUI 

RED OF THIS CURRENCY 

18 DIM C$<10), CV <10), CA <10),CB<10) 

20 FORJ=1TO10:READC$<J),CV <J):NEXTJ 
25 DATA Obe PENCE,0.01,TWO PENCE,0.02 
30 DATA FIVE PENCE , 0.05 , TEN PENCE ,0.1, TLI 
ENTY PENCE,0.2 

40 DATA FIFTY PENCE,0.5,ONE POUND,1,FIVE 
POUND,5 

50 DATA TEN POUND,10,TWENTY POUND,20 
60 SR =0 

100 POKEUG,UF:POKEUB,U2:PRINTU9$;"J" 

150 GOSUB500 
155 PRINTU9$; 

160 PRINT n agESaPRESS ' t ' TO INPUT A NEW 
PAYMENT 
162 PR I NT " 

II ■ 

* 

165 PRINT'^RESS ' £ ' TO GIVE THE TOTAL 
AMOUNT "; 

167 PR INT"a 

II a 

r 

170 PR INT"STRESS ' CLR/HOME‘ TO CANCEL AL 
L DATA " 
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200 REM GET AN INSTRUCTION KEY 

205 XX = 0 s SR =1 

210 GETA$:IFA$=""THEN210 

220 IFA* ="t"THEN300 

230 IFA$="3"THENRUN 

240 IFA* ="£"THEN400 

250 G0T0210 

300 PRINTU7*; "'9" ; 

310 INPUT"CASH AMOUNT IN PACKET";A$ 
320 A=VAL<A$):A 1=A 

330 INPUT"NUMBER OF PACKETS " ; B$ 

340 B=VAL(BS>:B1=B 

350 GOSUB8O0 

360 PRINT"J"sGOTO 150 

400 REM TOTAL FIGURE 

410 XX =1 

420 PRINT"J":GOTO 150 
500 REM PRINT OUT TABLE 
505 AT=0:PRINTU4$; 

510 PRINT"aHHBDSHHB - 


520 PRINTUR*; 

525 PR INT"CURRENCY";TAB<15>"NO. OF UNITS 
";TAB<33>"AMOUNT" 

530 PRINT 

535 F0RJ=1T011:PRINTU7$; 

536 IFJ <>11THEN540 

537 PR INTTAB<30)U9$; "-" 

538 PRINTTABC23)"TOTAL:"; 

539 A$=STR$<AT>:GOTO580 

540 A$=C$<J) + "." 

545 PR INTLEFT* < A* , 2 1 > ; " ; 

550 C=LEN<STR*<INTCCACJ>>>> 

551 IFXX =1THENC =LEN < STR$ <INT < CB(J )>)) 

559 IFXX=1THENPRINTU3$;TAB(22-C)CB <J) ; :G 
0T0571 

560 PRINTU3^;TAB<22-C)CA<J>; 

570 A$=STR$<CA<J)*CV<J ) ) 

571 IFXX=1THENA*=STR$<CB<J)*CV<J)) 

574 IFXX =1 THENAT = AT+CB<J}*CV <J >:GOTO530 

575 AT=AT+CA < J > *CV < J) 

580 AA$="":N=0:FORK=1TOLEN<A$> 

590 B$=MID$CA$,K 1 > 

600 IFB$=" "THEN650 
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610 AA$=AA$+B$ 

615 IFB$="."ANDVAL(AA$><1THENAA$="0"+AA$ 
620 IFB$="."THENN=1 
650 NEXTK 

660 IFN=0THENAA*=AA$+".00":GOTO700 

670 A=LEN(AA$>:IFMID$<AA$,A-1, 1 > = " ."THEN 

AA$=AA$+"0" 

630 REM STRING COMPLETE 
700 PRINTU9*; 

710 A=LEN(AA$) 

720 PR INTTAB <39-A !> AA$ 

730 NEXTJ 

740 IFSR =0THEN750 

74 1 IFXX=1THENPRINTU5$;TAB< 14 > 11 MsffTH IR IS 
THE RUNNING TOTALS" :GOTO750 

742 IFXX=0THENPRINT"gia"UE$;Bl "Bfi X £"A1; 

743 PRINTUE$;TAB<20>"THIS IS A SUB-TOTAL 

a H 

750 RETURN 

600 REM CALCULATE CACX) 

810 X=0:A=INT<A*100.000001)sFORJ=10TO1ST 
EP-1 

820 CA<J>=0iIFX=1THEN850 

830 IF<A-CV<J > * 100)<0THEN850 

S35 A=INT<A-INT<CV<J)*100.000001>):IFA=0 

THENX=1 

836 REM PREVIOUS LINE PREVENTS DECIMAL P 
LACE OVERFLOW ERROR 
840 CA<J)=CA<J>+1:IFX=0THEN830 
850 NEXTJ 

860 FOR J =1TO 10 sCA < J > =CA < J )*B:NEXT 
370 FORJ = 1TO10:CB( J )=CB <J)+CA <J >:NEXTJ 
880 RETURN 

7000 REM *******:*****#**###*###*#####* 
7002 REM COLOUR CODES FOR COMMODORE 64. 
7005 REM (ONLY USE THESE COLOURS) 

7010 U0=0:U0$="H":REM BLACK 
7020 Ul = l : U 1 " ^i'* :REM WHITE 

7030 U2=2!U2$= " 3 " :REM DARK RED 
7040 U3=5 s U3$ s " II" s REM GREEN 
7050 U4=6:U4$="3":REM DARK BLUE 
7060 U5=8:U5$="":REM ORANGE 
7070 U6=S:U6$="g":REM BROWN 
7080 U7=10:U7$="©" ;REM PINK 
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7090 U8=13:U8$=:REM LIGHT GREEN 
7100 U9=14:U9$="a":REM LIGHT BLUE 
7 110 UU=4:UU*="»" :REM PURPLE 
7120 UR=l£:UR*="y" :REM LIGHT GREY 
7130 UE =7:UE$="H"s REM LIGHT YELLOW 
7140 UF = 1 1 s UF$= " III" • REM DARK GREY 
7150 UG=53281:UB=532S0 
7200 RETURN 



Dambusters 


Dambusters is a game in which you have to defend a dam which is under 
attack from enemy aircraft, armed with bouncing bombs. Each bomb 
which succeeds in hitting the dam will blow a section of it away until 
eventually the water pours through and the game is over. 


Your defence consists of a gun mounted on the dam which fires at a 
target sight controlled by the player. Since the aircraft are out of range, 
you must aim at the bouncing bombs themselves by moving your sight 
up, down, right or left and then use the space key to fire. Unfortunately 
your beam weapon needs to be recharged after every three firings and 
therefore accuracy is vital, especially as there is a strong wind which has 
a tendency to blow your sights off course! 


0 REM BY PAUL STANLEY AND DAVID BUCK 

1 POKE 53280,6iPOKE 53281,6:PRINT"J";CHR 
$<8>;CHR$<129>; 

2 POKE 52,48:POKE 5S,48:CLR 

3 LET HS =0 

4 GOSUB 8000 
10 GOSUB 1000 

15 PR INT"iSjSSCORE : 0 " 

17 PRINT"^S";TAB(20)"HI-SCORE: ";HS; "" 

19 PRINT" 


N U L' UI 'I-'!JIJ I-. 1 HI-INI i|Jl ' l J l ' l .i l 11 


< ********* 


********************** *******^ / 
20 PRINT"; 


t~i N IJ u N u N N N I I •) 1 I ■•! I I -.1 1 III! ..I | J I , 


25 PRINT" 


70 LET D = 1 
72 LET 3=0 
80 LET A = 1 
85 LET P = 16 

90 LET Y=9 

91 LET X = INT<RND <TI)*20 > +6 


32 FOR F = 1 TO 5 STEP 2 : PR I NT " mmmm " ; TAB 
<X> H ^";MID$<B^,F,1>;MID$<B*,F + 1,1>:DU = . 1 
93 H I =2 : LO =204 : GOSUB2000 : PR I NT 11 MMEMM" ! T 
ABCX>;" ":NEXT F 
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34 FOR F = 1 TO 4:PRINTLEFT$<D$,6-F>;TAB<X 
>;MID*<B*,5,1>;MID*<6$,6,1>; 

95 PRINT LEFT$<D$,F+6);TAB<X>"fc":GOSUB20 
00 

36 printleft$<d*,6-f>;tab<X); n ";left$< 
d*,6+f>;tab<x>;" n s next f 

98 LET F = INTCRND <TI> *32)+3:LET G = 4 + INT(R 
ND < TI > * 14 > 

100 LET A$ = " C£ ] t«- ! " : LET HT=10 

120 PRINT LEFT$<D$,Y+1> ; TAB<X);MID$<A*,A 
,1> 

121 IN$="":GET IN$ 

122 LET F=F-<IN$="S" AND F<36>+<IN*="A" 
AND F >2) 

123 LET G=G-<IN$="Z" AND G<18>+<IN$="UP 
Ahd G >3 ) 

125 PRINTLEFT$<D$,G+1)}TAB <F >" + " 

126 LET LL=LL +LEAK 

127 IF LL >1000 THEN 400 

128 IF IN$=" " AND S<3 THEN GOSUB 200 

130 DU=,03!HI=Y!L0=128:GOSUB 2000 

140 PRINTLEFT*<D$,Y+1>;TAB<X>" ":REM;MID 
$<A*,A,1) 

145 PRINTLEFT$(D$,G+1>;TAB<F>" " 

150 LET Y=Y+D 

155 IF RND <TI)>.6 THEN LET F =F +INT<RND <T 
1>*1.5)-INT(RND <TI)*1.5> 

157 IF RND <TI)<.4 THEN LET G =G +INT<RND <T 
I ) * 1.5 AND G <15)-INT(RND <TI)#1.5> 

160 IF Y=HT THEN LET P=P+1:LET D=1:LET A 
=A+ 1 

170 IF Y=P THEN DU=.15:HI=2:LO=204:GOSUB 
2000:LET A=A + 1:LET D=-1?LET HT=HT-3 
180 IF A=7 THEN 350 
190 GOTO 120 

200 printleft$<d$,g);tab<f-i ); ”<bj; n 

201 PRINTLEFT$<D$,G+1>;TAB<F>; 

202 PRINTLEFT*KD$,G+2);TAB<F-1>; "; m< " 

205 LET S=S+1 

210 printleft$<d$,g>;tab<f-i);" 

211 printleft$<d$,g + i:>;tab<f>; " " 

212 PRINTLEFT$<D*,G+2);TAB<F-1" 

215 IF G=Y AND X=F THEN 300 

220 RETURN 
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300 LET SC=SC+10:PRINT ,, MMMI";SC:PRINT 
LEFT*<D$,G+1>;tab<f>; 

301 DU=.08:HI=4:LO=£51:GOSUB 2000 

302 H I =4: LO= 112s GOSUB 2000 

303 HI=5:L0=152 : GOSUB 2000 

304 HI=4:L0=112s GOSUB 2000 

305 PRINTLEFT$<D*,G+1);TAB<F>;" ":GOTO 7 
0 

350 FORA = 1T05 :DU =.00 1:HI=28:L0=49:G0SUB2 
000:H1=83:LO=131: IFPEEK (1824+X>=32THEN37 
0 

360 PRINTLEFT$<D$,21>;TAB(X>" ":GOTO 70 

370 IF PEEK <1364 +X ) < >58THEN 390 
375 LET LEAK=LEAK + 1 

380 PRINTLEFT$<D$,21);TAB<X)“ " r LEFT$ <D$ 

,22>;TAB<X>", ":GOTO 70 

390 LET LEAK=LEAK+2 

391 FORQX=20TO£1:PR INTLEFT*<D$,QX);TAB<X 
-1>" :NEXT:PRINTLEFT$<D$,22 >TAB <X - 1)", 
, ,":GOTO70 

400 PRINTLEFT$<D$, 1 1 );TAB<9>; GAME 

OVER -*m" 

401 PRINTLEFT$<D$,14);" PRESS ANY 

KEY TO PLAY AGAIN" 

402 DU=.03:FOR F=1 TO 50:HI=20+F:LO=HI:G 
OSUB 2000:NEXT F 

405 IF SOHS THEN LET S=3C 

4 10 GET Q$: IF Q*<>" " THEN 4 18 

411 GET Q$: IF Q$= !1 " THEN 411 

415 PRINT"J';:GuSUB 1190:GOTO 11 

399 PR INT"ERROR"SEND 

1000 POKE 56334,PEEK <56334)AND254 

10*8 POKE 1,PEEK<1)AND 251 

1020 FOR 1=0 TO 5 11:POKE I + 12288,PEEK< I + 
53248):NEXT 

1030 FOR J = 0 TO 16:READ A:FOR I=A TO A + 7 

:READ B s POKE I + 12283,B:NEXT I,J 

1050 POKE 1 ,PEEK(1 )OR4 

1060 POKE 56334,PEEK<56334)ORl 

1065 POKE 53272,23 

1070 DATA 216,0,0,0,16,0,0,0,0 

1060 DATA 224,0,0,0,24,24,0,0,0 

1030 DATA 232,0,0,0,56,56,0,0,0 

1100 DATA 240,0,0,0,60,60,60,0,0 
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1 1 10 

DATA 

1 120 

DATA 

1 130 

DATA 

1 140 

DATA 

3 


1 150 

DATA 

1 160 

DATA 

1 170 

DATA 

1 180 

DATA 

1 181 

DATA 

1 182 

DATA 

1 183 

DATA 


£48,0,0,126,126,126,126,0,0 
£64,0,0,£54,£54,£54,£54 ,£54,0 
35£,73,146,73,37,74,145,74,73 
280,153,58,36,£19,£19,36,58,15 


£ 88 , 0 , 0 , 0 , 8 , 6 £ , 0 , 0,0 
296,0,0,£4.,£55,66,0,0,0 
304,0,0,1,255,37,0,0,0 
312,0,0,128,£55,164,0,0,0 
320,0,2,5,10,20,£3£,16,16 
328,0,64,160,80,40,£3,8,8 
336,£55,0,£55,0,255,0,255,0 


1184 DATA 47£,1,2,4,8,16,32,64,128 

1185 DATA 480,128,64,32,16,8,4,2,1 

1190 LET B*="# $ m /.& c" 

1£00 LET LL =0 

1210 LET SC=0 

1220 LET LEAK=0 

1230 RETURN 

2000 POKE 54273,HI SPOKE 54272,LO:POKE 54 
£76 ,33 

£010 FOR DELAY=1 TO 500*DU:NEXT 
2020 POKE 54276,32 
£030 RETURN 

8000 PRINT " JliMUD AMBUSTERS" 

8001 PRINT IfiUMH- " 

80 10 PRINT " ttswuma " " 

8020 PRINT "THE YEAR IS 1943.YOU ARE IN 
CHARGE OF A" 

8030 PRINT "POWERFUL BEAM WEAPON,WITH WH 
ICH YOU ARE" 

8040 PRINT "TO PROTECT A DAM FROM THE BO 
UNCING BOMBS"; 

8050 PRINT "OF THE BRITISH ATTACKERS.THE 
Y HAVE" 

8060 PRINT "SEVERAL LANCASTER BOMBERS WH 
ICH FLY" 

8070 PRINT "TOWARDS YOU AND RELEASE THE I 
R DANGEROUS" 

8080 PRINT "BOMBS." 

8090 PRINT "HOWEVER,YOUR TASK IS NOT SO 


SIMPLE,FOR" 

8100 PRINT "YOUR WEAPON IS UNABLE TO REA 


CH THE" 
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8110 PRINT "LANCASTERS,SO YOU MUST JUST 
SHOOT AT THE"; 

81£0 PRINT "BOMBS INSTEAD.YOU CAN MOVE Y 
OUR CROSS-" 

8130 PRINT "HAIR SIGHTS WITH THE KEYS W, 
A,S & Z . " 

3131 PRINT "W=UP:A=LEFT:S=RIGHT!Z=DOLIN" 
8140 PRINT "M ^PRESS ANY KEY TO CO 

NTINUE" 

8150 GET A$: IF A$<>"" THEN 8150 
8160 GET A$:IF A*="" THEN 8160 

3 170 print en adjusting th 

E SIGHTS IS DIFFICULT" 

8180 PRINT "BECAUSE THERE IS A STRONG WI 
ND WHICH" 

8190 PRINT "CAUSES YOUR SIGHTS TO MOVE A 
BOUT. " 

8200 PRINT "FIRE YOUR BEAM WITH THE ja<SP 
ACE >■ BAR. " 

82 10 PRINT "BECAUSE OF THE POWER OF YOU 
R WEAPON," 

8220 PRINT "IT IS DRAINED AFTER ONLY THR 
EE SHOTS AND"; 

8230 PRINT "WILL ONLY BE READY BY THE NE 
XT TIME AN" 

8240 PRINT "AEROPLANE ATTACKS.YOUR BATTL 
E IS OVER" 

8250 PRINT "WHEN TOO MUCH WATER HAS POUR 
ED THROUGH" 

8260 PRINT "THE BROKEN DAM." 

8270 PRINT "H STRESS ANY KEY TO 

START" 

8280 GET A$sIF A*<>"" THEN 8280 
8290 GET A$: IF A*«"“ THEN 8290 
8300 PR I NT "Li" ; 

8310 S=54272 

8320 FOR XX=S TO S+24:P0KE XX,0:NEXT XX 
8330 POKE S+5,9!POKE S+6,0:POKE S+24,15 
8340 RETURN 
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The Sixty Programs series 

Sixty Programs for the Sinclair ZX Spectrum 
Sixty Programs for the BBC Micro 
Sixty Programs forthe Dragon 32 
Sixty Programs for the Oric 1 

A massive software library forthe price of a single cassette. Explosive games, 
dynamic graphics and invaluable utilities, this specially commissioned collection 
takes BASIC to the limits and beyond. 

Four of the country's best-selling software writers have pooled their talents to bury 
programming cliches and exploit your micro's potential to the full. 

Whether you are a games player or a more serious user, these books make your 
micro work for you. 

Publication: November 1983 £4.95 

Sixty Programs for the Commodore 64 
Sixty Programs for the VIC-20 

£5.95 


The Companion series 


The Companion to the Oric 1 

Ian Adamson 

The complete reference companion for all Oric users 

The Companion introduces the Oric's BASIC language in an easy-to-follow 
fashion, giving you a graduated introduction to programming backed up with 
advanced BASIC techniques and an introduction to machine code programming. 

Program storage, printer use and programming techniques are all covered, with 
extensive chapters that offer command of the superb high-resolution graphics, 
colour and sound facilities, to produce the all-singing, all-dancing programs the 
Oric is capable of handling. 

Full coverage of all commands and instructions is provided in a summary of Oric 
BASIC arranged for easy reference, with each instruction explained and illustrated 
with example programs. 

This is the first book to cover both the VI .0 and VI .1 versions of the Oric ROM. 
Publication: December 1 983 £5.95 



More titles in the 


Pan/Personal Computer News 
Computer Library 


The Instant Arcade Games series 

Instant Arcade Games for the Sinclair ZX Spectrum 
Instant Arcade Games for the Dragon 32 
Instant Arcade Games for the BBC Micro 
I nstant Arcade Games for the Electron 

Instant Invaders... Instant Lasers... Instant Spaceships... Instant Games... 
Instant BASIC! 

Forthe newcomerto computing, Jean Frost's Instant Arcade Games will be 
nothing short of a revelation. 

With little or no knowledge of BASIC you can still take a suite of 'skeleton' 
programs and create your own arsenal of dynamic and totally unique arcade 
games. 

This is not just another collection of listings, but a library of software that also 
serves as one of the most accessible introductions to structured programming ever 
written. 

For micro users who already write their own software. Instant Arcade Games offers 
an invaluable library of imaginative subroutines and user-defined graphics to 
enhance the efficiency and visual impact of their games programs. 

Spaceships, motherships, firing and scoring routines—the book is packed with 
ready-made modules that can be slotted into virtually any kind of arcade-style 
program. 

Publication: November 1 983 £3.95 


Micropuzzles 

J.J. Clessa 

Stretch your mind—with more than a little help from your micro—to find the 
answers to these brainteasers from the puzzle-master of Personal Computer 
World’s Leisure Lines feature. 

Test your mental ability with the Quickie Questions, or tackle the conundrums of 
the Puzzle Posers. Access the answers if you're baffled! 

The final test ofthe Prize Puzzle awaits you ... ifyou stay the course! 

Hours of puzzling pleasure for computer enthusiasts... orfor anyone with an 
insatiable appetite for twenty-four carat brainteasers! 


Publication: November 1 983 £2.95 



Computer magazines—essential reading for any micro 
enthusiast 

Packed with news, reviews, analysis, advice and programs 


Personal Computer News 

The best and largest selling weekly computer magazine in 
the UK 

Personal Computer World 

The best and largest selling monthly computer magazine in 
the UK 




Robert Erskine & Humphrey Walwyn with Paul Stanley and Michael Bews 
Sixty Programs for the Sinclair ZX Spectrum £5.95 

Sixty Programs for the BBC Micro £5.95 
Sixty Programs for the Dragon 32 £5.95 
Sixty Programs for the Oric 1 £5.95 

Sixty Programs for the Atari £5.95 (April 1984 publication) 

Sixty Programs for the Commodore 64 £5.95 
Sixty Programs for the Vic 20 £5.95 
Sixty Programs for the Electron £5.95 
Ian Adamson 

The Companion to the Oric 1 £5.95 

Geoff Wheelwright 

The Companion to the BBC Micro £4.95 
Keith Bowden 

The Companion to the Commodore 64 £5.95 (April 1984 publication) 

Jeremiah Jones and Geoff Wheelwright 
The Companion to the Electron £5.95 

Jean Frost 

Instant Arcade Games for the Sinclair ZX Spectrum £3.95 
Instant Arcade Games for the BBC Micro £3.95 
Instant Arcade Games for the Dragon 32 £3.95 
Instant Arcade Games for the Electron £3.95 

J. J. Clessa 
Micropuzzles £2.95 

Ian Scales 

Spectrum Peripherals Guide £4.95 
Tony Takoushi 

Best Software Guide: Vic 20/Commodore 64 £3.95 
Best Software Guide: Spectrum Games £3.95 
Jeff Aughton 

Invaluable Utilities for your BBC Micro £5.95 (April 1984 publication) 


All these books are available at your local bookshop or newsagent, or can be ordered 
direct from the publisher. Indicate the number of copies required and fill in the form 
below. 

Name_ 

(Block letters please) 

Ad d ress_ 


Send to Pan Books (CS Department), PO Box 40, Basingstoke, Hants. Please enclose 
remittance to the value of the cover price plus: 35p for the first book plus 15p per copy 
for each additional book ordered to a maximum charge of £1.25 to cover postage and 
package. Applicable only in the UK. 

While every effort is made to keep prices low, it is sometimes necessary to increase prices 
at short notice. Pan Books reserve the right to show on covers and charge new retail 
prices which may differ from those advertised in the text or elsewhere. 





60 programs for your Commodore 64 


A massive software library for the price of 
a single cassette. Explosive games, 
dynamic graphics and invaluable utilities, 
this specially commissioned collection 
takes BASIC to the limits and beyond. 

Four of the country’s best-selling software 
writers have pooled their talents to bury 
programming cliches and exploit your 
micro’s potential to the full. 

Whether you are a games player or a more 
serious user, here’s the book to make 
your micro work for you. 


The front cover illustration is a screen display 
from the game FIREBIRDS published by 
Softek International Limited and written by 
Graeme Devine 


UK. £5.95 


0 330 28358 8 B 





